<%@ LANGUAGE="VBSCRIPT" %> <%response.buffer=true%> <% id_e = request("id") id_n = request("id_n") pwd = request("pwd") Set MyFileObject=Server.CreateObject("Scripting.FileSystemObject") Set oServer = Server.CreateObject("ADODB.Connection") oServer.Open strDb1 SQL = "SELECT * FROM eventi2 where id="&id_e set oRs=oServer.execute(SQL) data_ = format_date(oRs("data")) nome = oRs("nome") localita = oRs("localita") file_logo = oRs("file_logo") http = ors("http") password = oRs("password") while right(password,1) = " " password = left(password,len(password)-1) wend if ucase(password)<>uCase(pwd) then %> Password errata
Riprova <% response.end end if sql = "insert into notizie (data, id_eventi2) values ("&oggi&","&id_e&")" set oRs=oServer.execute(SQL) sql = "select max(id) as N from notizie" set oRs=oServer.execute(SQL) id_n = oRs("N") response.redirect "mod_notizia.asp?id="&id_e&"&pwd="&pwd&"&id_n="&id_n response.end %>