Ciao a tuti ho un piccolissimo problema che non riesco a risolvere.
Ho creato un form di ricerca sul mio sito, che come vedete porta ad una pagina chiamata search.asp, ora come posso far aprire questa pagina in un pop up?
Questo il codice del form.
<form method="POST" action="search.asp">
<br>
<input type="text" name="search" size="14"> <input type="submit" value="CERCA">
</form>
Questo della pagina search..
<%
Dim Cerca
Cerca = Replace(Request.Form("search"), "'", "")
if Cerca = "" then
Response.write "Errore. Non hai inserito nessun termine da cercare"
Response.end
end if
Dim DbPath, Conn
DbPath="/mdb-database/****"
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(DbPath)
Dim strSQL, Rs
strSQL = "Select * from RICERCA where NOME_PAGINA like '%" & Cerca & "%' or SEARCH_WORDS like '%" & Cerca & "%' order by ID desc"
Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.Open strSQL, Conn, 3, 3
if Rs.EOF then
Response.write "Nessun risultato trovato!"
else
Do while NOT Rs.EOF
Response.write "<a href=" & Rs("URL") & ">" & Rs("NOME_PAGINA") & "</a><br>" & Rs("DESCRIZIONE") & "<br><br>"
Rs.MoveNext
Loop
End If
Rs.close
Set Rs = Nothing
Conn.close
Set Conn = Nothing
%>
Ho creato un form di ricerca sul mio sito, che come vedete porta ad una pagina chiamata search.asp, ora come posso far aprire questa pagina in un pop up?
Questo il codice del form.
<form method="POST" action="search.asp">
<br>
<input type="text" name="search" size="14"> <input type="submit" value="CERCA">
</form>
Questo della pagina search..
<%
Dim Cerca
Cerca = Replace(Request.Form("search"), "'", "")
if Cerca = "" then
Response.write "Errore. Non hai inserito nessun termine da cercare"
Response.end
end if
Dim DbPath, Conn
DbPath="/mdb-database/****"
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(DbPath)
Dim strSQL, Rs
strSQL = "Select * from RICERCA where NOME_PAGINA like '%" & Cerca & "%' or SEARCH_WORDS like '%" & Cerca & "%' order by ID desc"
Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.Open strSQL, Conn, 3, 3
if Rs.EOF then
Response.write "Nessun risultato trovato!"
else
Do while NOT Rs.EOF
Response.write "<a href=" & Rs("URL") & ">" & Rs("NOME_PAGINA") & "</a><br>" & Rs("DESCRIZIONE") & "<br><br>"
Rs.MoveNext
Loop
End If
Rs.close
Set Rs = Nothing
Conn.close
Set Conn = Nothing
%>