sto cercando di fare una pagina personalizzata per degli agenti contando che il db e' unico per tutti devo far visualizzare all'aggente i propri dati da lui inseriti ma contando che il campo agente e' numerico non riesco a capire perche' non funziona
<% Dim Agente
Dim RS, Conn
Set Conn = Server.CreateObject ("ADODB.Connection")
Conn.ConnectionString="driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("/mdb-database/areacase.mdb") & ";"
Conn.open
Set RS = Server.CreateObject ("ADODB.Recordset")
SQL = "SELECT * FROM immobili WHERE Agente =" & Agente
Set objRs = Conn.execute(SQL)
Response.write "<center><table width='90%' border='0' cellspacing='5' cellpadding='0'>"
Do while NOT objRs.EOF
Response.write "<td>"
Response.write "Riferimento:
" & objRs("Riferimento")
Response.write "Tipologia:
" & objRs("Tipologia") & "
"
Response.write "Stato:
" & objRs("Stato")
Response.write "Indirizzo:
" & objRs("Locazione_Vendita") & "
"
Response.write "Nome:
" & objRs("N_ambienti")
Response.write "Cognome:
" & objRs("Provincia") & "
"
Response.write "Telefono:
" & objRs("Comune")
Response.write "Cellulare:
" & objRs("Citta") & "
"
Response.write "Partita IVA:
" & objRs("Zona")
Response.write "Partita IVA:
" & objRs("Via") & "
"
Response.write "Partita IVA:
" & objRs("N_Civico")
Response.write "Partita IVA:
" & objRs("Prefazione") & "
"
Response.write "Partita IVA:
" & objRs("Prezzo")
Response.write "Agente
" & objRs("Agente")
Response.write "</td>"
objRs.Movenext
Loop
Response.write "</table></center>"
Conn.Close
Set Conn = Nothing
%>
perche' imbase all'agente mi deve visualizzare i contenuti con quel numero se lo metto fisso funziona
grazie grazie
Rispondi quotando
