Ciao a tutti e grazie per l'aiuto... ho una file in flash mx che mi invia tramite un modulo e un pulsante una parola ad un file asp che poi effettua la ricerca in un database... vorrei visualizzare i risultati di tale ricerca non nella pagina asp ma nello stesso file flash come si fa??? vi allego il file asp al quale invio la ricerca grazie mille
<!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML//EN">
<HTML><HEAD><TITLE>----- PAOLO SCOPPETTUOLO -----</TITLE>
<script language="JavaScript">
</script>
</HEAD>
<p align="center">
<CENTER>
<%
Dim prechiave
Dim tipo
prechiave=request.querystring("form_chiave")
tipo=request.querystring("tipo")
if tipo="tutte" then
change="%'and descrizione like'%"
chiave=Replace(prechiave," ", change)
else
chiave=prechiave
end if
Dim iPageSize 'Numero di record da visualizzare
Dim iPageCount 'Numero di pagine totali che otteniamo dalla query
Dim iPageCurrent 'Pagina corrente
Dim strOrderBy 'Parametro in base a cui definire l'ordinamento
Dim strSQL 'Comando da eseguire
Dim RS 'Il solito amico Recordset
Dim iRecordsShown 'Variabile usata per definire i record mostrati
Dim miastringa 'Variabile utilizzata per la visualizzazione dei risultati
Dim nuovastringa 'Variabile utilizzata per la visualizzazione dei risultati
' Imposto il numero di record visualizzati
iPageSize = 4
If Request.QueryString("page") = "" Then
iPageCurrent = 1
Else
iPageCurrent = CInt(Request.QueryString("page"))
End If
If Request.QueryString("order") = "" Then
strOrderBy = "id"
Else
strOrderBy = Request.QueryString("order")
End If
Dim Conn
Set Conn = Server.CreateObject("ADODB.Connection")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("mdb-database/cerca.mdb")
Set rs = Server.CreateObject("ADODB.Recordset")
sql = "SELECT * FROM cerca where descrizione like '%"&chiave&"%' ORDER BY " & strOrderBy & " DESC;"
RS.Open sql, conn, adOpenKeyset
RS.PageSize = iPageSize
RS.CacheSize = iPageSize
iPageCount = RS.PageCount
Dim totale
totale = rs.recordcount
If iPageCurrent > iPageCount Then iPageCurrent = iPageCount
If iPageCurrent < 1 Then iPageCurrent = 1
If iPageCount = 0 Then
response.redirect("search_again.htm")
Else
RS.AbsolutePage = iPageCurrent
%>
</CENTER>
<p align=left><font face="Verdana"> La ricerca ha prodotto <% = totale %> risultati</font></p>
<CENTER>
<%
iRecordsShown = 0
Do While iRecordsShown < iPageSize And Not RS.EOF
%>
<p align="left">"><%= rs("percorso")%>
<font face="Verdana, Arial, Helvetica, sans-serif" size="1"><%
miastringa = RS("descrizione")
nuovastringa = Mid( miastringa, 1, 200)
response.write(nuovastringa)&"..."
%></font></p>
<CENTER>
<%
iRecordsShown = iRecordsShown + 1
RS.MoveNext
Loop
End If
RS.Close
Set RS = Nothing
Conn.Close
Set Conn= Nothing
%>
<p align="left">
<font face="Verdana, Arial, Helvetica, sans-serif" size="2">Pagina <%= iPageCurrent%> di <%= iPageCount%></font>
<%
If iPageCurrent <> 1 Then
%>
<a href="risultati.asp?page=<%= iPageCurrent - 1 %>&order=<%= Server.URLEncode(strOrderBy) %>&form_chiave=<% = prechiave %>&come=<% = tipo %>">
<indietro</a>
<% end if %>
<%If iPageCurrent < iPageCount Then
%>
avanti >
</p>
<CENTER>
</p>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber2" bgcolor="#ED1E26">
<tr>
<td width="100%">
<p align="right"><font face="Trebuchet MS" color="#FFFFFF" size="2">
Home</font></td>
</tr>
</table>
</p>
<% end if %>
</body>
</html>
</CENTER>
</CENTER>
</CENTER>
Rispondi quotando
prova e mi fai sapere
