Ma il db l'hai guardato??
Probabile che nelle prove un record ci sia già finito...
Roby
Ma il db l'hai guardato??
Probabile che nelle prove un record ci sia già finito...
Roby
www.creamweb.it [v. 3.0]
:: Script ASP!
:: Web directory gratuita!
:: Campioni del mondo!
ho capito il problema ma non so dove è.
ho levato la chiave primaria e l'inserimeno nel db avviene due volte, non capisco perchè pero'!
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<% dim user,codice,cognome,nome,data,corso
user=Request.cookies("user")
codice=Request.form("codice")
cognome=Request.form("cognome")
nome=Request.form("nome")
data=Request.form("data")
corso=Request.form("corso")
'Open the database
dim objConn, strCon, objRS, strSQL, ident
Set objConn = Server.CreateObject("ADODB.Connection")
'*************************************
' CHANGE THE FOLLWING DATA SOURCE
' PATH TO POINT TO WHERE YOU HAVE
'*************************************
strCon = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("\mdb-database\studenti.mdb")
objConn.connectionstring = strCon
objConn.Open
Set objRS = Server.CreateObject("ADODB.Recordset")
'ON ERROR RESUME NEXT
%>
<html>
<head>
<title>Scuola online Diplomi Recupero anni scolastici ScuolaOnline</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"></head>
<body bgcolor="1170A0" text="#000000" link="#000000" vlink="#000000" alink="#000000">
<% ' se la password è corretta
if user="milanocapitale" Then
%>
<font face="Century Gothic">Accesso eseguito con successo!</font>
<font face="Century Gothic"><a href="/amministrazione/codici.asp">Inserimento/Rimozione
Codici iscrizione</a>
<a href="/amministrazione/codiciprof.asp">Inserimento/Rimozione Codici iscrizione
per corsi professionali</a>
Inserimento/Rimozione Tipologie corsi</font>
</p>
<%
' Set the SQL Statement to get the information from the database
strSQL = "INSERT INTO iscrizione(codice,cognome,nome,data,corso,sp) VALUES ('" & codice & "','" & cognome & "','" & nome & "','" & data & "','" & corso & "'," & 1 & ") "
' Open the Database
objRS.Open strSQL, objConn
set objRS = objConn.Execute(strSQL)
objConn.Close
%>
</table>
<font face="Century Gothic">Dati inseriti</font></p>
<% ' se password sbagliata
else
%></p>
</p>
<font face="Century Gothic">ScuolaOnline: Area Amministrativa:
Cookie Scaduto! Reinserire credenziali!</font>
</p>
<form action="\amministrazione\login.asp" method="post" name="form" id="form">
<table width="300" border="1">
<tr>
<td width="75"><font face="Century Gothic">Username:</font></td>
<td width="209"><input name="user" type="text" id="user"></td>
</tr>
<tr>
<td><font face="Century Gothic">Password:</font></td>
<td><input name="password" type="password" id="password"></td>
</tr>
<tr>
<td><font face="Century Gothic"></font></td>
<td><input type="submit" name="Submit" value="Accedi"></td>
</tr>
</table>
</form>
<%END IF%>
</body>
</html>
Il recordset non ti serve.
Robycodice:'************************************* ' CHANGE THE FOLLWING DATA SOURCE ' PATH TO POINT TO WHERE YOU HAVE '************************************* strCon = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("\mdb-database\studenti.mdb") objConn.connectionstring = strCon objConn.Open %> <html> <head> <title>Scuola online Diplomi Recupero anni scolastici ScuolaOnline</title> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"></head> <body bgcolor="1170A0" text="#000000" link="#000000" vlink="#000000" alink="#000000"> <% ' se la password è corretta if user="milanocapitale" Then %> <font face="Century Gothic">Accesso eseguito con successo!</font> <font face="Century Gothic"><a href="/amministrazione/codici.asp">Inserimento/Rimozione Codici iscrizione</a> <a href="/amministrazione/codiciprof.asp">Inserimento/Rimozione Codici iscrizione per corsi professionali</a> Inserimento/Rimozione Tipologie corsi</font> </p> <% ' Set the SQL Statement to get the information from the database strSQL = "INSERT INTO iscrizione(codice,cognome,nome,data,cors o,sp) VALUES ('" & codice & "','" & cognome & "','" & nome & "','" & data & "','" & corso & "'," & 1 & ") " objConn.Execute(strSQL) objConn.Close set objConn = nothing %>
www.creamweb.it [v. 3.0]
:: Script ASP!
:: Web directory gratuita!
:: Campioni del mondo!
Permessi di invio
Rispondi quotando