Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Boris

Será que é o IIS

Por , em ASP Clássico

Recommended Posts

Boris    0

Boris
Postado

E ai pessoal olha e novamente,

 

Eu estava tentando rodar um script asp dentro da pagina Index.htm mas não abre porem se a pagina estiver com a extensão index.ASP as informações aparece.

 

Esse é o Codigo do HTM

 

<!--#include file="cn.asp"-->

<html>

<head>

<title>teste ASP</title>

 

</head>

 

<body>

<table width="300" border="0" align="center" cellpadding="0" cellspacing="0">

<tr>

<td>

<%

set rsMax = Server.CreateObject("ADODB.RecordSet")

rsMax.Open "select Count(*) as nrecords from livro where ativo = 1", cn

nrecords = rsMax("nrecords")

 

if request.QueryString("pagina")<>"" then

pagina = request.QueryString("pagina")

end if

 

npag = 15

if pagina = "" then

pagina = 1

end if

 

if pagina < 1 then

response.write "<center><H3>Erro</H3></center>"

response.end

end if

 

numreg = npag * (pagina - 1)

 

 

s = "select * from livro where ativo = 1 order by data DESC"

set ls = cn.Execute(s)

set rs = Server.CreateObject("ADODB.Recordset")

rs.Open "select Count(*) as conta from livro where ativo = 1", cn

contar = rs("conta")

if contar < 1 then

%>

<%

else

 

%>

<br>

<%

'-----paginação

resto = nrecords mod npag

if resto > 0 then

paginas = Int(nrecords / npag) + 1

else

paginas = nrecords / npag

end if

'------paginação

 

if numreg > 0 then

for LinkTemp = 1 to numreg

if ls.EOF = false then ls.MoveNext

next

end if

regatual = 1

while NOT ls.EOF AND regatual <= npag

msg = Replace(ls("msg"),"[br]","<br>")

%>

<br> <%=ls("nome")%><br> <%=ls("idade")%><br> <a href="mailto:<%=LCase(ls("email"))%>" target="_blank"><%=ls("email")%><br>

</a> <%=ls("pais")%><br> <%=ls("data")%><br> <%=ls("hora")%><br> <%=msg%><br>

<%

ls.MoveNext

numreg = numreg + 1

regatual = regatual + 1

Wend

if paginas > 1 then

response.write "<p align='center'>"

if Int(pagina) > 1 then

response.write "<a href='"&Request.ServerVariables("SCRIPT_NAME")&"?pagina="&pagina-1&"&album="&iAlbum&"' class='menupag'>< anterior</a>   "

end if

for LinkTemp = 1 to paginas

if Linktemp = Int(pagina) then

response.write "<span style='background-color:#eeeeee; width:15px;'>"&pagina&"</span>   "

else

response.write "<a href='"&Request.ServerVariables("SCRIPT_NAME")&"?pagina="&Linktemp&"&album="&iAlbum&"' class='menupag'>"&LinkTemp&"</a>   "

end if

next

if Int(pagina) < Int(paginas) then

response.write "<a href='"&Request.ServerVariables("SCRIPT_NAME")&"?pagina="&pagina+1&"&album="&iAlbum&"' class='menupag'>próximo ></a>"

end if

response.write "</p>"

end if

 

%>

<br>

<%

end if

rs.Close

set rs = nothing

ls.Close

set ls = nothing

%>

</td>

</tr>

<tr>

<td> </td>

</tr>

</table>

</body>

</html>

 

 

Basta eu Renomear para .ASP que abre as informações

 

o que acontece ???

 

Obrigado http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

Compartilhar este post

Link para o post
Compartilhar em outros sites

Salgado    4

Salgado
Postado

As páginas para serem interpretadas DEVEM estar com a extensão .ASP.

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito