Salve ragazzi,
ho scritto questa sintassi per il login degli utenti iscritti e il successivo redirect all'area riservata, se il cliente inserisce i dati giusti o al form d'iscrizione/all'home page se i dati sono errati:
ma ricevo questo errore:codice:Set rscontrol = Conn.Execute("select * from login where user='" & Userz2 & "' and pwd='" & Passz2 & "'") if not(rscontrol.eof) then Set rscontrol2 = Conn.Execute("select * from login where username='" & Userz2 & "' and password='" & Passz2 & "' and utconferma='" & conferma & "'") if rscontrol2.eof then Response.write " " Response.write "<table width=""300"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"">" Response.write "<tr><td height=""123"">" Response.write "<div align=""center""> <font color=""#000099"" size=""2"" face=""Verdana"">Siamo Spiacenti ma la sua procedura d'iscrizione è attualmente in corso! </font></p><p align=""justify""><font color=""#000099"" size=""1"" face=""Verdana"">La preghiamo di confermare la sua rischiesta d'iscrizione cliccando sul link inviato all'email inviata dal nostro sistema all'account da lei specificato o, in alternativa, di contattare l'amministratore di sistema all'indirizzo di posta elettronica: info@grottecatalane.com</font></p>" Response.write "<p align=""center""><font color=""#000099"" size=""2"" face=""Verdana"">recupera i dati di log-in</font></p>" Response.write " " Response.write "Tra qualche secondo verrà reindirizzato alla home page del sito http://Clikki qui se non vuole atten...n è automatico" Function JSRedirect(Byval url, secondi) With Response .Write("<script language=""JavaScript"">" & vbCrLf) .Write("<!--" & vbCrLf) .Write("function redirect() {" & vbCrLf) .Write("window.location = '" & url & "';" & vbCrLf) .Write("}" & vbCrLf) .Write("timer = setTimeout('redirect()', '" & (secondi * 1000) & "');" & vbCrLf) .Write("-->" & vbCrLf) .Write("</script>" & vbCrLf) End With End Function JSRedirect("index.htm",10) Response.write "</div></td></tr></table>" rscontrol.Close set rscontrol=Nothing rscontrol2.Close set rscontrol2=Nothing conn.Close set conn=Nothingsapete darmi una mano?codice:Microsoft VBScript compilation error '800a0414' Cannot use parentheses when calling a Sub /login.asp, line 42 JSRedirect("index.htm",10) --------------------------^![]()

Rispondi quotando
