By using this site, you agree to our updated Privacy Policy and our Terms of Use. Manage your Cookies Settings.
438,162 Members | 1,038 Online
Bytes IT Community
+ Ask a Question
Need help? Post your question and get tips & solutions from a community of 438,162 IT Pros & Developers. It's quick & easy.

Microsoft VBScript compilation error '800a0400' Expected statement

P: 1
I have this error :

Microsoft VBScript compilation error '800a0400'

Expected statement

/amministrazione/add2_sponsor.asp, line 11

<%
^

The code of file "add2_sponsor.asp :

Expand|Select|Wrap|Line Numbers
  1. <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
  2. <% Session.LCID = 1040 %><!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
  3. <html>
  4. <head>
  5. <title>Sport Club Rorč</title>
  6. <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
  7. <META NAME="ROBOTS" CONTENT="NOINDEX, NOFOLLOW">
  8. </head>
  9. <body>
  10. <%
  11. <%
  12. If Session("autenticato") <> "ok" Then
  13. Response.Redirect("login.asp")
  14. End if
  15. %>
  16. ' Creazione della connessione al database
  17. Set objConn = Server.CreateObject("ADODB.Connection")
  18. objConn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="& Server.MapPath("../data/rore.mdb")
  19. If Request.QueryString("azione") = "aggiungi" Then
  20. Set Upload = Server.CreateObject("Persits.Upload.1")
  21. Upload.OverwriteFiles = False
  22. Upload.SetMaxSize 1048576
  23. percorso = CStr(Server.MapPath("../img"))
  24. cartella = "sponsor"
  25. cartella2 = Cstr("\" & cartella)
  26. Upload.Save(percorso & cartella2)
  27. Set File = Upload.Files(1)
  28. immagine = File.FileName
  29. nome = Replace(Upload.Form("nome"),"'","''")
  30. web = Replace(Upload.Form("web"),"'","''")
  31. email = Replace(Upload.Form("email"),"'","''")
  32. tipolink = Upload.Form("tipolink")
  33. posizione = Upload.Form("posizione")
  34. tipologia = 0
  35. testosponsor = ""
  36. If Upload.Form("visualizzazione") = "tutte" Then
  37. paghome = 1
  38. pagcomitato = 1
  39. pagstoria = 1
  40. pagnotizie = 1
  41. pagsquadre = 1
  42. pagcalendari = 1
  43. pagclassifiche = 1
  44. pagguestbook = 1
  45. paggalleria = 1
  46. pagcoppa = 1
  47. pagcommenti = 1
  48. pagcontatto = 1
  49. paglink = 1
  50. Else
  51. If Upload.Form("paghome") = "" Then
  52. paghome = 0
  53. Else
  54. paghome = 1
  55. End if
  56. If Upload.Form("pagcomitato") = "" Then
  57. pagcomitato = 0
  58. Else 
  59. pagcomitato = 1
  60. End if
  61. If Upload.Form("pagstoria") = "" Then
  62. pagstoria = 0
  63. Else
  64. pagstoria = 1
  65. End if
  66. If Upload.Form("pagnotizie") = "" Then
  67. pagnotizie = 0
  68. Else 
  69. pagnotizie = 1
  70. End if
  71. If Upload.Form("pagsquadre") = "" Then
  72. pagsquadre = 0
  73. Else
  74. pagsquadre = 1
  75. End if
  76. If Upload.Form("pagcalendari") = "" Then
  77. pagcalendari = 0
  78. Else
  79. pagcalendari = 1
  80. End if
  81. If Upload.Form("pagclassifiche") = "" Then
  82. pagclassifiche = 0
  83. Else
  84. pagclassifiche = 1
  85. End if
  86. If Upload.Form("pagguestbook") = "" Then
  87. pagguestbook = 0
  88. Else
  89. pagguestbook = 1
  90. End if
  91. If Upload.Form("paggalleria") = "" Then
  92. paggalleria = 0
  93. Else
  94. paggalleria = 1
  95. End if
  96. If Upload.Form("pagcoppa") = "" Then
  97. pagcoppa = 0
  98. Else
  99. pagcoppa = 1
  100. End if
  101. If Upload.Form("pagcommenti") = "" Then
  102. pagcommenti = 0
  103. Else
  104. pagcommenti = 1
  105. End if
  106. If Upload.Form("pagcontatto") = "" Then
  107. pagcontatto = 0
  108. Else
  109. pagcontatto = 1
  110. End if
  111. If Upload.Form("paglink") = "" Then
  112. paglink = 0
  113. Else
  114. paglink = 1
  115. End if
  116. End if
  117. 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&")"
  118. objConn.Execute(sql)
  119. objConn.Close
  120. Set objConn = Nothing
  121. Response.Redirect("add_sponsor.asp?conferma=ok")
  122. End if
  123. %>
  124. </body>
  125. </html>
  126.  
  127.  
Jan 20 '14 #1
Share this Question
Share on Google+
1 Reply


Rabbit
Expert Mod 10K+
P: 12,369
You have two code delimiters, one on line 10 and one on line 11. Get rid of one.
Jan 20 '14 #2

Post your reply

Sign in to post your reply or Sign up for a free account.