Ir para conteúdo
Fórum Script Brasil
  • 0

Asp+bd Access, Como Fazer Link Ficar Linkado?


gra

Pergunta

Olá pessoal, estou c/ uma pequena dúvida, tenho um sisteminha de busca e queria que no resultado os links ficassem linkados e abrissem em outra janela, alguém poderia me ajudar?

Abaixo parte do código da página de resultados:

obrigada :)

<%

var_codigo1 = request("txtcodigo1")

'Response.Expires = 0

Const intPageSize = 2

If Request.Querystring = "" then

intCurrentPage = 1

Else

intCurrentPage = CInt(Request.Querystring("CurrentPage"))

Select Case Request.Querystring("Submit")

Case "Previous"

intCurrentPage = intCurrentPage -1

Case "Next"

intCurrentPage = intCurrentPage +1

End Select

End If

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

exe.CursorLocation = adUseClient

exe.CursorType = adOpenStatic

exe.CacheSize = intPageSize

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

SQL = "SELECT * FROM sites where descricao LIKE '%" & var_codigo1 & "%'"

exe.Open sql, banco, , , adCmdText

search = request.form("search")

SQL = "SELECT * FROM sites where descricao"

exe.PageSize = intPageSize

If Not(exe.EOF) Then exe.AbsolutePage = intCurrentPage

intTotalPages = exe.PageCount

%>

<table width="90%" border="1" align="center" cellpadding="2" cellspacing="2" bordercolor="#CCCCCC" bgcolor="#FFFFFF">

<%For intI = 1 to exe.PageSize%>

<%IF linha THEN%>

<tr>

<%END IF : linha = not linha%>

<td width="329" bordercolor="#CCCCCC" bgcolor="#FFFFFF"> <div align="left"><img src="imagens/icone1.gif" width="9" height="8" hspace=5>

<font face="Arial, Helvetica, sans-serif" size="2" color="#3333CC"><%=exe("titulo")%></font><br>

<font face="Arial, Helvetica, sans-serif" size="2" color="#000000"><%=exe("descricao")%></font><br>

<%=fonte01%><%=exe("url")%><br>

</div></td> </tr>

<tr bgcolor="#FFFFFF">

<td width="329" bordercolor="#FFFFFF">&nbsp;</td>

</tr>

<%exe.movenext

If exe.EOF Then Exit For

Next%>

<tr bgcolor="#6699CC">

<td> <div align="right">

<%

response.write fonte03&"Página: "

for i = 1 to exe.pagecount

if i = cint(intCurrentPage) then

response.write i & "&nbsp;"

end if

next

%>

</div></td>

</tr>

</table>

Link para o comentário
Compartilhar em outros sites

4 respostass a esta questão

Posts Recomendados

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,7k
×
×
  • Criar Novo...