Ho un problema nel connettermi al mio database.lo script è il seguente:
<%
if request("id")=1 then
on error resume next
dim strQuery
strQuery="INSERT INTO datistudenti("
dim strValori
strValori=" VALUES("
dim strSql
strSql=""
for each item in request.form
if item<>"Submit" then
strQuery= strQuery & "[" & item &"] , "
strValori= strValori & "'"&server.HTMLEncode(request.form(item))&"',"
end if
next
strQuery=mid(strQuery,1,len(strQuery)-1) &")"
strValori=mid(strValori,1,len(strValori)-1) &")"
set rs =server.createObject("ADODB.Recordset")
strConn="driver={Microsoft Access Driver (*.mdb)}; "
strConn=strConn & " DBQ=" & Server.MapPath("coortestudCAMPUSONE.mdb")
strSql= strQuery & strValori
response.write(strSql)
response.end
rs.open strSql,strConn
set rs=nothing
if err.number<>0 then
response.write err.number &"<br>"&err.description
else
response.write "inserimento avvenuto con <b>successo</b>"
end if
response.end
end if
%>
La stringa sql che mi viene mostrata é:
INSERT INTO datistudenti([Matricola] , [Nome] , [cdf] , [Cognome] , [Cittanascitaecap] , [submit.y] , [Sesso] , [Residenzaecap] , [Tel Abitazione] , [Nascita] , [diploma di maturità] , [Abitazione studi e CAP] , [e-mail] , [anno maturità] , [lavoratore] , [modalità di svolgimento] , [Cell] , [da/per quanto tempo] , [Anno Immatricolazione] , [servizio di leva] , [cdl] , [n° crediti maturati] , [media ponderata] , [n° esami sostenuti] , [submit.x] ,) VALUES('','hggfy','','yyyyy','','13','M','','','','','','','','Y','','','','','','','','','','40')
Ma non sono tutti i campi del mio database!!!!Come faccio ad inserirne altri ad esempio il campo :"tipo di lavoro"???
Ringrazio chiunque voglia darmi una mano
<%
if request("id")=1 then
on error resume next
dim strQuery
strQuery="INSERT INTO datistudenti("
dim strValori
strValori=" VALUES("
dim strSql
strSql=""
for each item in request.form
if item<>"Submit" then
strQuery= strQuery & "[" & item &"] , "
strValori= strValori & "'"&server.HTMLEncode(request.form(item))&"',"
end if
next
strQuery=mid(strQuery,1,len(strQuery)-1) &")"
strValori=mid(strValori,1,len(strValori)-1) &")"
set rs =server.createObject("ADODB.Recordset")
strConn="driver={Microsoft Access Driver (*.mdb)}; "
strConn=strConn & " DBQ=" & Server.MapPath("coortestudCAMPUSONE.mdb")
strSql= strQuery & strValori
response.write(strSql)
response.end
rs.open strSql,strConn
set rs=nothing
if err.number<>0 then
response.write err.number &"<br>"&err.description
else
response.write "inserimento avvenuto con <b>successo</b>"
end if
response.end
end if
%>
La stringa sql che mi viene mostrata é:
INSERT INTO datistudenti([Matricola] , [Nome] , [cdf] , [Cognome] , [Cittanascitaecap] , [submit.y] , [Sesso] , [Residenzaecap] , [Tel Abitazione] , [Nascita] , [diploma di maturità] , [Abitazione studi e CAP] , [e-mail] , [anno maturità] , [lavoratore] , [modalità di svolgimento] , [Cell] , [da/per quanto tempo] , [Anno Immatricolazione] , [servizio di leva] , [cdl] , [n° crediti maturati] , [media ponderata] , [n° esami sostenuti] , [submit.x] ,) VALUES('','hggfy','','yyyyy','','13','M','','','','','','','','Y','','','','','','','','','','40')
Ma non sono tutti i campi del mio database!!!!Come faccio ad inserirne altri ad esempio il campo :"tipo di lavoro"???
Ringrazio chiunque voglia darmi una mano
