I have this error :
Microsoft VBScript compilation error '800a0400'
Expected statement
/amministrazione/add2_sponsor.asp, line 11
<%
^
The code of file "add2_sponsor.asp : -
<%@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>
-
-
1  10118  Rabbit 12,516
Recognized Expert Moderator MVP
You have two code delimiters, one on line 10 and one on line 11. Get rid of one.
Sign in to post your reply or Sign up for a free account.
Similar topics | |
by: Matt |
last post by:
When the ASP statement end with a _ character, then the next line cannot
have comment ' character. Is that correct? Since I encountered the following
error:
Microsoft VBScript compilation...
|
by: Adam Short |
last post by:
Can anyone help?
I have all of a sudden started to receive this error on my site!
I have no idea what script it is executing, why it is now failing, what is
going on??
All I have been able...
|
by: Adam Short |
last post by:
Can anyone help?
I have all of a sudden started to receive this error on my site!
I have no idea what script it is executing, why it is now failing, what is
going on??
All I have been able...
|
by: remya1000 |
last post by:
While running the program, i'm getting this error
Microsoft VBScript compilation error '800a0401'
Expected end of statement
/admin/currentmonth.asp, line 26
strSQL = "SELECT...
|
by: delaney19 |
last post by:
Hi im getting this error on line 5 where i start the sub, and i have no idea why so if anyone could help i would be very gratefull.
Imports System
Imports System.DirectoryServices
Namespace...
| | |
by: char |
last post by:
I can't figure out why I am getting error: Microsoft VBScript compilation '800a0400'
SET MyRecordSet = SERVER.CREATEOBJECT("ADODB.RECORDSET")
MySQL = "SELECT * FROM ShipSummary (NOLOCK) where...
|
by: mdock |
last post by:
Hello everyone,
I am attempting to add a function to an existing ASP page. The default script of the page is VBScript. The page is returning the following error:
Microsoft VBScript...
|
by: Charmie1701 |
last post by:
Can anyone help...?
I keep getting this error message and am now getting angry. I have checked my syntax hundreds of times and can not seem to find anything wrong with it....I think I need a fresh...
|
by: Indy |
last post by:
Hi,
I am new to VB and have some previous programming experiences.
Curently working as an IT support person and trying to write a VB 6 script to access apos database and get one of the table's...
|
by: kevinr |
last post by:
Hi, I am brand new to VB, and I am trying to deploy Office 2007 on my network here at work. We used part of this script to do another deployment, and I have taken pieces and tried to edit for this...
|
by: marktang |
last post by:
ONU (Optical Network Unit) is one of the key components for providing high-speed Internet services. Its primary function is to act as an endpoint device located at the user's premises. However,...
| | |
by: Hystou |
last post by:
Most computers default to English, but sometimes we require a different language, especially when relocating. Forgot to request a specific language before your computer shipped? No problem! You can...
|
by: Oralloy |
last post by:
Hello folks,
I am unable to find appropriate documentation on the type promotion of bit-fields when using the generalised comparison operator "<=>".
The problem is that using the GNU compilers,...
|
by: jinu1996 |
last post by:
In today's digital age, having a compelling online presence is paramount for businesses aiming to thrive in a competitive landscape. At the heart of this digital strategy lies an intricately woven...
|
by: agi2029 |
last post by:
Let's talk about the concept of autonomous AI software engineers and no-code agents. These AIs are designed to manage the entire lifecycle of a software development project—planning, coding, testing,...
|
by: isladogs |
last post by:
The next Access Europe User Group meeting will be on Wednesday 1 May 2024 starting at 18:00 UK time (6PM UTC+1) and finishing by 19:30 (7.30PM).
In this session, we are pleased to welcome a new...
|
by: adsilva |
last post by:
A Windows Forms form does not have the event Unload, like VB6. What one acts like?
| | |
by: 6302768590 |
last post by:
Hai team
i want code for transfer the data from one system to another through IP address by using C# our system has to for every 5mins then we have to update the data what the data is updated ...
|
by: muto222 |
last post by:
How can i add a mobile payment intergratation into php mysql website.
| |
