Ir para conteúdo

POWERED BY:

Arquivado

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

premiere

link abre nova janela

Por , em ASP Clássico

Recommended Posts

premiere    0

premiere
Postado

olá pessoal não estou conseguindo fazer com que o link abra numa nova janela, me deem uma força, ssegue o codigo

 

 

<%

DSNtemp="DRIVER={Microsoft Access Driver (*.mdb)}; "

DSNtemp=dsntemp & "DBQ=" & server.mappath("journal.mdb")

sqlstmt = "SELECT * FROM journal ORDER BY id DESC"

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

rs.Open sqlstmt, DSNtemp, 3, 3

TotalRecs = rs.recordcount

x = 0

For x = 1 to 9999

If rs.eof then

Exit For

Else

date1 = rs("pdate")

id = rs("ID")

name1 = rs("pname")

link = "<a href='view.asp?id =" & id & "'>"& name1 &" </a>"

 

description = date1

%>

 

<tr>

<td width="230" bgcolor="#EEEEEE"><span class="style5">

<font face="Verdana">

 

 

 

<% =link%>

</font></span></td>

</tr>

 

<%

rs.MoveNext

End If

Next%>

</table>

Compartilhar este post

Link para o post
Compartilhar em outros sites

André Baltieri    0

André Baltieri
Postado

ok Lucas o link abriu em nova janela porem deu erro 0500 no servidor ao executar o script, antes ele executava normal, ...

posta o source desta pagina view.aspabraços...by André Baltieri http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

Compartilhar este post

Link para o post
Compartilhar em outros sites

premiere    0

premiere
Postado

segue o source da pagina view.asp...........<html><head><title>MATERIAS</title><link rel="stylesheet" type="text/css" href="../esportes/view.css"><style type="text/css"><!--.style1 { font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 18px; font-weight: bold;}body { background-color: #FFFFFF;}.style3 {font-size: 12px}.style6 { font-size: 10px; font-family: Verdana, Arial, Helvetica, sans-serif; font-style: italic;}.style8 {font-size: 12}a:link { color: #000000; text-decoration: none;}a:visited { text-decoration: none; color: #000000;}a:hover { text-decoration: underline; color: #000000;}a:active { text-decoration: none; color: #000000;}--></style><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"></head><body><div align="center"> <p align="left" class="style6"><a href="../dinheiro/index.asp"><br> </a></p> <p align="center"><span class="style1"> <%id = request.querystring("id")DSNtemp="DRIVER={Microsoft Access Driver (*.mdb)}; " DSNtemp=dsntemp & "DBQ=" & server.mappath("journal.mdb") sqlstmt = "SELECT * FROM journal where id =" & id & " ORDER BY id DESC" Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sqlstmt, DSNtemp, 3, 3TotalRecs = rs.recordcount date1 = rs("pdate") id = rs("ID") name1 = rs("pname") p1= rs("pentry") description = p1 %> <span class="style3">Matérias</span></span></p></div><div align="center"><center> <table border="1" cellpadding="3" cellspacing="0" width="400" bordercolor="#000000"> <tr> <td width="627" bgcolor="#8CB2FF"><font face="Verdana" size="1"> <% =date1 %> --- <b> <% =name1 %></b> </font></td> </tr> <tr> <td width="627" bgcolor="#FFFFFF"><font face="Verdana" size="1"></font> <font face="Verdana" size="1"><br> <% =description%></font> <p align="center"><font face="Verdana" size="1"><a href="../dinheiro/index.asp">VOLTA</a></font></p> </td> </tr> </table> </center></div></body></html>

Compartilhar este post

Link para o post
Compartilhar em outros sites

premiere    0

premiere
Postado

o erro é o seguinte:Erro 500 server error - ocorreu um erro ao executar o script - ERRO DE SCRIPTobs. a pagina abre com o nome certo mas com este erro ai.

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