Ciao a tutti...
ho un problema con la registrazione di alcuni dati in un database...
sta pagina proprio non mi vuole funzionare...
Sto predisponendo un questionario online...tutte le risposte al questionario vengono poi inserite nel database...i dati sono tutti dei testi...questo è il codice...qualcuno sa dirmi cosa c'è che non va???
Grazia a quanti sapranno dirmi qualcosa
<%@ Language=VBScript %>
<% Option Explicit %>
<%
Dim objConn
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.ConnectionString = "DSN=DB.dsn"
objConn.Open
Dim RS, SQL, conta
Dim matricola, datanascita, corso, ris2, ris3, ris4, ris5, ris6, ris7, ris8, ris9, ris10, ris11, ris12, ris13, ris14, ris15, ris16, ris17, ris18, ris19, ris20, ris21, ris22, ris23, ris24, ris25, ris26, ris27, ris28, ris29, ris30, ris31, ris32, ris33, ris34, ris35, ris36, ris37, ris38, ris39, ris40, ris41, ris42, ris43, ris44, ris45, ris46
matricola = Session("mat")
datanascita = Session("datan")
corso = Session("cor")
If Session("ris14") = "NO" Then
ris15 = Request.form("Dom15")
ris16 = Request.form("Dom16")
ris17 = Request.form("Dom17")
ris18 = Request.form("Dom18")
ris19 = Request.form("Dom19")
ris20 = Request.form("Dom20")
ris21 = Request.form("Dom21")
If ris20 = "" Then
ris20 = " "
End If
If ris21 = "" Then
ris21 = " "
End If
ris22 = " "
ris23 = " "
ris24 = " "
ris25 = " "
ris26 = " "
ris27 = " "
ris28 = " "
ris29 = " "
ris30 = " "
ris31 = " "
ris32 = " "
ris33 = " "
ris34 = " "
ris35 = " "
ris36 = " "
ris37 = " "
ris38 = " "
ris39 = " "
ris40 = " "
ris41 = " "
ris42 = " "
ris43 = " "
ris44 = " "
ris45 = " "
ris46 = " "
SQL = "Insert Into Risposte (Matricola, DataNascita, Corso, Domanda2, Domanda3, Domanda4, Domanda5, Domanda6, Domanda7, Domanda8, Domanda9, Domanda10,Domanda11, Domanda12, Domanda13, Domanda14,Domanda15, Domanda16, Domanda17, Domanda18, Domanda19, Domanda20, Domanda21, Domanda22, Domanda23, Domanda24, Domanda25, Domanda26, Domanda27, Domanda28, Domanda29, Domanda30, Domanda31, Domanda32, Domanda33, Domanda34, Domanda35, Domanda36, Domanda37, Domanda38, Domanda39, Domanda40, Domanda41, Domanda42, Domanda43, Domanda44, Domanda45, Domanda46) Values ('" + matricola + "', '" + datanascita + "', '" + corso + "', '" + ris2 + "', '" + ris3 + "', '" + ris4 + "', '" + ris5 + "', '" + ris6 + "', '" + ris7 + "', '" + ris8 + "', '" + ris9 + "', '" + ris10 + "', '" + ris11 + "', '" + ris12 + "', '" + ris13 + "', '" + ris14 + "', '" + ris15 + "', '" + ris16 + "', '" + ris17 + "', '" + ris18 + "', '" + ris19 + "', '" + ris20 + "', '" + ris21 + "', '" + ris22 + "', '" + ris23 + "', '" + ris24 + "', '" + ris25 + "', '" + ris26 + "', '" + ris27 + "', '" + ris28 + "', '" + ris29 + "', '" + ris30 + "', '" + ris31 + "', '" + ris32 + "', '" + ris33 + "', '" + ris34 + "', '" + ris35 + "', '" + ris36 + "', '" + ris37 "', '" + ris38 + "', '" + ris39 + "', '" + ris40 + "', '" + ris41 + "', '" + ris42 + "', '" + ris43 + "', '" + ris44 + "', '" + ris45 + "', '" + ris46 + "')")
objConn.Execute SQL
Response.write SQL
End If
%>
