[Asp10.net] Help

afigueiredo Fri, 07 Mar 2003 10:25:55 -0800

Estou com esse cï¿½digo de busca, sendo que no resultado da busca, nï¿½o estou conseguindo abrir como outra pï¿½gina, como ou onde posso colocar o ( Target = "_blank" ).

Obrigado

if isnumeric(Request.QueryString("d")) and Request.QueryString("d") <> "" and Request.QueryString("pass") = pass then' Delete
IDlink = Clng(Request.QueryString("d"))
links.execute("delete from links where ID=" & IDlink)
Links.close
Response.Redirect ("links.asp?pass=" & Request.QueryString("Pass"))
end if

if Request.QueryString("a") = "b" then ' 185403
if Request.Form("Pass") = pass then
Response.Redirect("links.asp?pass=" & Request.Form("Pass"))
else
Response.Redirect ("links.asp")
end if
end if

if Request.QueryString("a") = "a" then 'Add/update a link
if Request.Form ("description") <> "" and Request.Form ("address") <> "" and Request.Form ("address") <> "http://" then

  if isnumeric(Request.form("h")) and Request.form("h") <> "" then
   RS.Open "select * from links where ID=" & Request.form("h"), links, 0, 3'1,3
  else
   RS.Open "links", links, 0, 3'1,3
   RS.Addnew
  end if

  if Request.Form("NewCategory") <> "" then
   RS("Category") = Request.Form("NewCategory")
  else
   RS("Category") = Request.Form("Category")
  end if

  RS("Date") = now()
  RS("URL") = Request.Form("address")
  RS("Description") = Request.Form("description")
  if not adminapproval then RS("Accept")=true
  RS.Update

  RS.Close
  Links.close
end if

if Request.form("h") <> "" then
Response.Redirect ("links.asp?pass=" & Request.QueryString("Pass"))
else
Response.Redirect("links.asp")
end if

end if

if isnumeric(Request.QueryString("u")) and Request.QueryString("u") <> "" then
   RS.Open "select * from links where ID=" & Request.QueryString("u"), links, 0, 3'1,3
   acategory = RS("Category")
   aurl = RS("URL")
   adescription = RS("Description")
   aid = RS("ID")
   rs.Close
end if
%><HTML><HEAD><TITLE>Intranet</TITLE>
<META http-equiv=Content-Type content="text/html; charset=iso-8859-1">
<STYLE type=text/css>
<!--

A:link {color:003430;text-decoration:none}

A:visited {color:#003430;text-decoration:none}

A:hover {color:#FFFFFF; font-color: blue; text-decoration:underline }

A:active {color:"#FFFFFF"; text-decoration:none}

-->
</STYLE>

<STYLE>
BODY{
scrollbar-arrow-color: #CCCC99;
scrollbar-3dlight-color: #CCCC99;
scrollbar-highlight-color: #CCCC99;
scrollbar-face-color: #003333;
scrollbar-shadow-color: #CCCC99;
scrollbar-darkshadow-color: #CCCC99;
scrollbar-track-color: #CCCC99;
}
</STYLE>

<META content="MSHTML 6.00.2800.1141" name=GENERATOR></HEAD>
<BODY bgColor=#cccc99>
<TABLE cellSpacing=0 cellPadding=0 width=50 border=0>
<TBODY>
<TR>
    <TD>
      <TABLE cellSpacing=0 cellPadding=0 width="<%=screenwidth%>" border=0>
        <TBODY>
        <TR>
          <TD bgColor=#003430>
            <P align=center><FONT color=#ffffff
        size=4><%=title%></FONT></P></TD></TR></TBODY></TABLE>
      <DIV align=center>
      <CENTER>
      <TABLE cellSpacing=0 cellPadding=0 width="<%=screenwidth-100%>" border=0><%
if Request.QueryString("pass") = pass then ' Admin
Set RS = links.execute("select * from links order by Category asc,Description asc")
else
Set RS = links.execute("select * from links where accept order by Category asc,Description asc")
end if

    do while not (RS.Eof)

if dept <> rs("Category") then
  Response.Write "<tr><td width=" & screenwidth & " colspan='2'> </td></tr>"'Spacer
  Response.Write "<tr><td width=" & screenwidth & " colspan='2' bgcolor='#003430'> <font color='#FFFFFF'>Categoria:  " & RS("Category") & "</font></td></tr>"
  dept = rs("Category")
end if

Response.Write "<tr><td width='20'> </td>"
Response.Write "<td width=" & screenwidth-20 & " bgcolor='#CCCC99'>"

if Request.QueryString("pass") = pass then 'delete
   Response.Write "<a href=''><span ><font color='#FFFFFF' size='1'>Edit</font></span></a> "
   Response.Write "<a href=''><span ><font color='#FFFFFF' size='1'>Delete</font></span></a> "
  if not RS("Accept") then
   Response.Write "<a href=''><span ><font color='#FF0000' size='1'>Accept</font></span></a> "
  end if
end if

Response.Write "<a href='' target='_blank'>" & RS("Description") & "</a>"
Response.Write "</td></tr>"

RS.Movenext
loop

%>
        <TBODY></TBODY></TABLE></CENTER></DIV><BR>
      <FORM action="" method=post
      Pass?)<>"" then
      Response.Write"&pass="&Request.QueryString("Pass")%>"> <%
if adescription <> "" then
  Response.Write "<input type='hidden' name='h' value=" & aid & ">"
end if
rs.close
%>
      <DIV align=center>
      <CENTER></CENTER></DIV></FORM>
      <FORM action="" method=post>
      <DIV align=center>
      <CENTER></CENTER></DIV></FORM></TD></TR></TBODY></TABLE></TD></TR></TABLE><%
links.close
%></BODY></HTML>

:: http://www.asp10.net
==================================================
:: Soluï¿½ï¿½es simples para problemas complexos
:: Sistemas de Links, Notï¿½cias, Faq, Loja,
:: Estatï¿½sticas, Artigos, Mural e muito mais.
==================================================
:: Para entrar, sair ou ver o histï¿½rico da lista
:: Asp10.net visite http://www.asp10.net
==================================================

Vocï¿½ se interessa por programaï¿½ï¿½o, hardware, sistemas operacionais, tecnologia e redes? Entï¿½o clique aqui e conheï¿½a mais grupos sobre esses assuntos. Tire dï¿½vidas, envie dicas, troque informaï¿½ï¿½es com pessoas que gostam do que vocï¿½ gosta.

[Asp10.net] Help

Responder a