Ciao ragazzi, ho un database dove la colonna "data_scadenza" ha impostata una data. Io vorrei che lo script controllasse se la data odierna è posteriore a quella presente nella colonna del database, e se si.... Quello che ho cercato di fare l'ho evidenziato in grassetto, ma non va....
<%
Dim strdata
miaData = Now
strdata = (formatDateTime(miaData, vbShortDate))
sql = "SELECT * FROM dati ORDER BY ID"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.open sql, conn, 3,3
If not rs.EOF Then
strBanners = rs.getrows()
rs.movefirst
Do While Not rs.EOF
intCounter = intCounter + 1
rs.movenext
Loop
If intCounter < 2 Then
file = "../public/banner/" &strBanners(2,0)
strid = strBanners(0,0)
url = "banner/cambiourl.asp?id="&strid&"&url="&strBanners(3,0)
strDisplay = "[img] & file & [/img]"
Else
Randomize
intID = Int(Rnd * intCounter)
file = "public/banner/" &strBanners(2,intID)
strid = strBanners(0,intID)
url = "banner/cambiourl.asp?id="&strid&"&url="&strBanners(3,intI D)
strDisplay = "[img] & file & [/img]"
End If
Else
' If there are no banners in DB, display default banner
strDisplay = "[img]&strDefault&[/img]"
End If
sql = "SELECT * FROM dati WHERE id=" & strid
Set rs = Server.CreateObject("ADODB.Recordset")
rs.open sql, conn, 3,3
if strdata > rs("data_scadenza") then
rs(9) = "no"
end if
If rs(5) = rs(6) or rs(9) = "no" then
rs(9) = "no"
rs.update
response.redirect("vedi.asp")
else
Response.Write(strDisplay)
rs(6) = rs(6) + 1
strcrate = (rs(7)/rs(6))*100
rs(8) = strcrate
rs.update
%>
<%
end if
%>
Rispondi quotando
