I have this error :
Microsoft VBScript compilation error '800a0400'
Expected statement
/amministrazione/add2_sponsor.as p, line 11
<%
^
The code of file "add2_sponsor.a sp :
Microsoft VBScript compilation error '800a0400'
Expected statement
/amministrazione/add2_sponsor.as p, line 11
<%
^
The code of file "add2_sponsor.a sp :
Code:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<% Session.LCID = 1040 %><!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<title>Sport Club Rorè</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<META NAME="ROBOTS" CONTENT="NOINDEX, NOFOLLOW">
</head>
<body>
<%
<%
If Session("autenticato") <> "ok" Then
Response.Redirect("login.asp")
End if
%>
' Creazione della connessione al database
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="& Server.MapPath("../data/rore.mdb")
If Request.QueryString("azione") = "aggiungi" Then
Set Upload = Server.CreateObject("Persits.Upload.1")
Upload.OverwriteFiles = False
Upload.SetMaxSize 1048576
percorso = CStr(Server.MapPath("../img"))
cartella = "sponsor"
cartella2 = Cstr("\" & cartella)
Upload.Save(percorso & cartella2)
Set File = Upload.Files(1)
immagine = File.FileName
nome = Replace(Upload.Form("nome"),"'","''")
web = Replace(Upload.Form("web"),"'","''")
email = Replace(Upload.Form("email"),"'","''")
tipolink = Upload.Form("tipolink")
posizione = Upload.Form("posizione")
tipologia = 0
testosponsor = ""
If Upload.Form("visualizzazione") = "tutte" Then
paghome = 1
pagcomitato = 1
pagstoria = 1
pagnotizie = 1
pagsquadre = 1
pagcalendari = 1
pagclassifiche = 1
pagguestbook = 1
paggalleria = 1
pagcoppa = 1
pagcommenti = 1
pagcontatto = 1
paglink = 1
Else
If Upload.Form("paghome") = "" Then
paghome = 0
Else
paghome = 1
End if
If Upload.Form("pagcomitato") = "" Then
pagcomitato = 0
Else
pagcomitato = 1
End if
If Upload.Form("pagstoria") = "" Then
pagstoria = 0
Else
pagstoria = 1
End if
If Upload.Form("pagnotizie") = "" Then
pagnotizie = 0
Else
pagnotizie = 1
End if
If Upload.Form("pagsquadre") = "" Then
pagsquadre = 0
Else
pagsquadre = 1
End if
If Upload.Form("pagcalendari") = "" Then
pagcalendari = 0
Else
pagcalendari = 1
End if
If Upload.Form("pagclassifiche") = "" Then
pagclassifiche = 0
Else
pagclassifiche = 1
End if
If Upload.Form("pagguestbook") = "" Then
pagguestbook = 0
Else
pagguestbook = 1
End if
If Upload.Form("paggalleria") = "" Then
paggalleria = 0
Else
paggalleria = 1
End if
If Upload.Form("pagcoppa") = "" Then
pagcoppa = 0
Else
pagcoppa = 1
End if
If Upload.Form("pagcommenti") = "" Then
pagcommenti = 0
Else
pagcommenti = 1
End if
If Upload.Form("pagcontatto") = "" Then
pagcontatto = 0
Else
pagcontatto = 1
End if
If Upload.Form("paglink") = "" Then
paglink = 0
Else
paglink = 1
End if
End if
sql = "INSERT INTO tblSponsor (txtNome,txtWeb,txtEmail,txtImmagine,numLink,numTipo,txtTestoSponsor,pagHome,pagComitato,pagStoria,pagNotizie,pagSquadra,pagCalendari,pagClassifiche,pagGuestbook,pagGalleria,pagCoppa,pagCommenti,pagContatto,pagLink,numPosizione) VALUES ('"&nome&"','"&web&"','"&email&"','"&immagine&"',"&tipolink&","&tipologia&",'"&testosponsor&"',"&paghome&","&pagcomitato&","&pagstoria&","&pagnotizie&","&pagsquadre&","&pagcalendari&","&pagclassifiche&","&pagguestbook&","&paggalleria&","&pagcoppa&","&pagcommenti&","&pagcontatto&","&paglink&","&posizione&")"
objConn.Execute(sql)
objConn.Close
Set objConn = Nothing
Response.Redirect("add_sponsor.asp?conferma=ok")
End if
%>
</body>
</html>
Comment