Salve a tutti,
ho un problema con questo codice:
Ecco la cosa non funziona, nel senso che se entro per la prima volta nella pagina, la session("logo") è chiaramente NULL, quindi dovrebbe eseguire la prima parte di codice. Invece esegue la seconda parte, che invece andrebbe seguita se la session è diversa da NULL.codice:<% If (Session("logo") = Null) then %> <% sqlstring = "SELECT Max(ID) AS MaxID, Min(ID) AS MinID FROM logo" Set objRs = Server.CreateObject("ADODB.Recordset") objRs.ActiveConnection = objConn objRs.Open sqlstring maxID = objRs("MaxID") minID = objRs("MinID") 'response.write maxID & minID 'response.end Randomize rndID = Int((maxID - minID + 1) * Rnd + minID) objRs.Close Set objRs = Nothing sqlstring2 = "SELECT TOP 1 * FROM logo WHERE ID >=" & rndID Set objRs = Server.CreateObject("ADODB.Recordset") objRs.ActiveConnection = objConn objRs.Open sqlstring2 logo = objRs("url_logo") response.write "<td background='../../cgi-bin/logo/" & logo & "' height='150' valign='top' style='padding-top: 10px; padding-left: 10px;' colspan='3'>[img]images/logo.gif[/img]</td>" Session("logo") = logo objRs.Close Set objRs = Nothing objConn.Close Set objConn = Nothing Else logo = Session("logo") response.write "<td background='../../cgi-bin/logo/" & logo & "' height='150' valign='top' style='padding-top: 10px; padding-left: 10px;' colspan='3'>[img]images/logo.gif[/img]</td>" End If %>
Voi che ne dite?

Rispondi quotando
