Questo è il codice che uso per estrarre dei dati da una tbl di access in base alle date inputate nei controlli; vorrei che se la query fosse nulla la pagina venisse reinderizzata, ma usando il controlino: <%if strsql = "" then

response.redirect "../pagine/last.asp"


end if %>
non funziona. qualcuno mi potrebbe aiutare??

grazie Nicola

<%
Dim Cnn, Rst, strSQL
Set Cnn = Server.CreateObject("ADODB.Connection")
Cnn.Open Application("Cnn")

Set Rst = Server.CreateObject("ADODB.Recordset")
%>

<%

StrSql = "SELECT MANIFESTAZIONI.*, RIFERIMENTO.AREA as LOC FROM RIFERIMENTO "
StrSql = sTRsQL & "INNER JOIN MANIFESTAZIONI ON RIFERIMENTO.ID = MANIFESTAZIONI.ID "
StrSql = sTRsQL & "WHERE MANIFESTAZIONI.id=" & cint(request("cmbRIF"))
StrSql = sTRsQL & "And MANIFESTAZIONI.expired = false"
%>
<%
if strsql = "" then

response.redirect "../pagine/last.asp"


end if %>
<%

If Len(request("GGI"))>0 And Len(request("MMI"))>0 And Len(request("AAI"))>0 Then
StrSql = sTRsQL & " AND DATA_I >= #" & request("MMI") & "/" & request("GGI") & "/" & request("AAI") & "#"


End If

If Len(request("GGF"))>0 And Len(request("MMF"))>0 And Len(request("AAF"))>0 Then
StrSql = sTRsQL & " AND DATA_F <= #" & request("MMF") & "/" & request("GGF") & "/" & request("AAF") & "#"

End If

StrSql = sTRsQL & " ORDER BY DATA_I DESC;"

Rst.Open StrSql, Cnn



%>