Ciao ragazzi,
ho un problema con un recordset.
Se estraggo la query e la eseguo da access risulta piena,
mentre nello script qua sotto si verifica rs.eof = true,
e non mi entra nel ciclo.
Cosa posso verificare?
codice:
ACC = "select offerte.offerta,offerte.mq_comm,offerte.locali,offerte.tipologia,offerte.costo_E,offerte.latitudine,offerte.longitudine,offerte.indirizzo,offerte.cap,"
ACC = ACC & " '" & indirizzo & "' + foto1 as foto"
ACC = ACC & " from offerte"
ACC = ACC & " where"
ACC = ACC & " offerte.cap like'*" & comune & "*'"
if cstr(request.Form("R_tipo")) = "VE" then
ACC = ACC & " and offerte.tipo ='Vendita'"
else
ACC = ACC & " and offerte.tipo ='Affitto'"
end if
'zona
if cstr(request.Form("localita")) <> "" and cstr(request.Form("localita")) <> "0" then
ACC = ACC & " and offerte.zona='" & request.Form("localita") & "'"
end if
'tipologia
if cstr(request.Form("R_tipologia0")) <> "" and cstr(request.Form("R_tipologia0")) <> "0" then
ACC = ACC & " and offerte.tipologia = '" & request.Form("R_tipologia0") & " '"
end if
'prezzo_tolleranza
if cstr(request.Form("prezzo_tolleranza")) <> "" and cstr(request.Form("prezzo_tolleranza")) <> "0" then
ACC = ACC & " and offerte.costo_E <= " & request.Form("prezzo_tolleranza")
end if
'auto box
if cstr(request.Form("R_autobox")) <> "" then
ACC = ACC & " and offerte.autobox = '" & request.Form("R_autobox") & " '"
end if
'locali
if cstr(request.Form("R_locali")) <> "" then
ACC = ACC & " and offerte.locali = " & request.Form("R_locali")
end if
set RS = Conn.Execute(ACC)
while not RS.EOF
if IsNull(rs("latitudine")) = true then
ChiediCoordinate()
else
Response.write rs("latitudine")
end if
rs.movenext
wend