di kirk1968 » 27/12/07 15:19
Questa è la pagina Inserimento.asp dove l'utente inserisce i dati manualmente nelle caselline
<html>
<head>
<META NAME="Title" CONTENT="PuntoDP">
<META NAME="description" CONTENT="Soluzioni Web, Grafica editoriale e pubblicitaria">
<META NAME="Language" CONTENT="italiano">
<META NAME="Robots" CONTENT="All">
</div>
</div>
<p><strong>INSERIMENTO UTENTE</strong></p>
<form name="form1" method="post" action="InsertAllievo.asp">
<label>nome
<input name="nome" type="text" id="nome" maxlength="30">
</label>
<p>
<label>cognome
<input name="cognome" type="text" id="cognome" maxlength="30">
</label>
</p>
<p>
<label>indirizzo
<input name="indirizzo" type="text" id="indirizzo" maxlength="30">
</label>
</p>
<p>
<label>cap
<input name="cap" type="text" id="cap" maxlength="5">
</label>
</p>
<p>
<label>città
<input name="citta" type="text" id="citta" maxlength="30">
</label>
</p>
<p>
<label>prov
<input type="text" name="prov" id="prov">
</label>
</p>
<p>
<label>telefono
<input name="telecasa" type="text" id="telecasa" maxlength="12">
</label>
</p>
<p>
<label>Cellulare
<input name="telecell" type="text" id="telecell" maxlength="12">
</label>
</p>
<p>
<label>Cod. Fiscale
<input name="codfiscale" type="text" id="codfiscale" maxlength="16">
</label>
</p>
<p>
<label>User ID
<input name="user_id" type="text" id="user_id" maxlength="10">
</label>
</p>
<p>
<label>Password
<input name="password" type="text" id="password" maxlength="10">
</label>
</p>
<p>
<label>INVIA
<input type="submit" name="Submit" value="Invia">
</label>
</p>
</form>
<p> </p>
</body>
</html>
E questa è la pagina InsertAllievo.asp che viene chiamata
<%@Language=VBScript%>
<%Response.Buffer = True%>
Dim MyConn
Set MyConn=Server.CreateObject("ADODB.Connection")
MyConn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.Mappath("/mdb-database/Furia.mdb")
<%
NomeRicevuto=Request.Form("nome")
CognomeRicevuto=Request.Form("cognome")
IndirizzoRicevuto=Request.Form("indirizzo")
CapRicevuto=Request.Form("cap")
CittaRicevuta=Request.Form("citta")
ProvRicevuta=Request.Form("prov")
TeleCasaRicevuto=Request.Form("telecasa")
TeleCellRicevuto=Request.Form("telecell")
CodFiscaleRicevuto=Request.Form("codfiscale")
UserRicevuto=Request.Form("user_id")
PasswordRicevuta=Request.Form("password")
Istruzione="insert into Allievi(Cognome,Nome,Indirizzo,Cap,Provincia,Telecasa,TeleCell,CodFiscale,Useri_ID,Password) values('" & CognomeRicevuto & "','" & NomeRicevuto & "','" & IndirizzoRicevuto & "','" & CapRicevuto & "','" & CittaRicevuta & "','" & ProvRicevuta & "','" & TeleCasaRicevuto & "','" & TeleCellRicevuto & "','" & CodFiscaleRicevuto & "','" & UserRicevuto & "','" & PasswordRicevuta & "'" & ")"
MyConn.Execute(Istruzione)
%>
Mettendo i window.write in posizioni adeguate ho capito che l'unica cosa che non funziona è la connessione al DB
Qualcuno può aiutarmi?