11 messaggi dal 31 gennaio 2006
Ciao a tutti,
il mio obiettivo è riuscire a far sì che la mia pagina asp esegua un controllo sul campo id (contatore) del db Access in modo che se il numero trovato è maggiore di 15 allora colui che compila il form sia indirizzato in una pagina specifica.
La mia struttura è così fatta:
index: pagina con form
nuovaprenotazione: pagina di connessione e immissione nel db con visualizzazione dei dati di conferma.
All'interno di questa pag. il codice che ho provato è questo
<%
SQL="SELECT id FROM corsi"

Conn.Execute(SQL)
%>
<% if id > "15" then response.redirect("datimancanti.asp") end if%>

Ma NON FUNZIONA!!!!!!!!!
Non capisco dove è il recordset. Puoi postare il codice completo?

Alberto Biancardo
11 messaggi dal 31 gennaio 2006
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>Ordine OK</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body>
<%
Dim Conn
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="& server.MapPath("Prevenzione.mdb")
data=date()

pdv=replace(request.form("pdv"),"'","''")
tipo_corso=replace(request.form("tipo_corso"),"'","''")
Costi=replace(request.form("Costi"),"'","''")
nome=replace(request.form("nome"),"'","''")
cognome=replace(request.form("cognome"),"'","''")
data_nascita=replace(request.form("data_nascita"),"'","''")
Citta_nascita=replace(request.form("Citta_nascita"),"'","''")
nome2=replace(request.form("nome2"),"'","''")
cognome2=replace(request.form("cognome2"),"'","''")
data_nascita2=replace(request.form("data_nascita2"),"'","''")
Citta_nascita2=replace(request.form("Citta_nascita2"),"'","''")
nome3=replace(request.form("nome3"),"'","''")
cognome3=replace(request.form("cognome3"),"'","''")
data_nascita3=replace(request.form("data_nascita3"),"'","''")
Citta_nascita3=replace(request.form("Citta_nascita3"),"'","''")
nome4=replace(request.form("nome4"),"'","''")
cognome4=replace(request.form("cognome4"),"'","''")
data_nascita4=replace(request.form("data_nascita4"),"'","''")
Citta_nascita4=replace(request.form("Citta_nascita4"),"'","''")
nome5=replace(request.form("nome5"),"'","''")
cognome5=replace(request.form("cognome5"),"'","''")
data_nascita5=replace(request.form("data_nascita5"),"'","''")
Citta_nascita5=replace(request.form("Citta_nascita5"),"'","''")
Rappresentante=replace(request.form("Rappresentante"),"'","''")

if data_nascita= "" then response.redirect ("datimancanti.asp")end if
if pdv= "" then response.redirect ("datimancanti.asp")end if
if nome= "" then response.redirect ("datimancanti.asp")end if
if cognome= "" then response.redirect ("datimancanti.asp")end if
if Citta_nascita= "" then response.redirect ("datimancanti.asp")end if
if Rappresentante= "" then response.redirect ("datimancanti.asp")end if
if tipo_corso= "Addetto Primo Soccorso" and Costi="115 euro + Iva a persona" then response.redirect ("datimancanti.asp")end if
if tipo_corso= "Addetto Antincendio" and Costi="75 euro + Iva a persona" then response.redirect ("datimancanti.asp")end if
if Costi= "" then response.redirect ("datimancanti.asp")end if

SQL = "INSERT INTO corsi(data,pdv,tipo_corso,Costi,nome,cognome,Citta_nascita,data_nascita,nome2,cognome2,Citta_nascita2,data_nascita2,nome3,cognome3,Citta_nascita3,data_nascita3,nome4,cognome4,Citta_nascita4,data_nascita4,nome5,cognome5,Citta_nascita5,data_nascita5,Rappresentante)"
SQL = SQL&"VALUES('"&data&"','"&pdv&"','"&tipo_corso&"','"&Costi&"','"&nome&"','"&cognome&"','"&Citta_nascita&"','"&data_nascita&"','"&nome2&"','"&cognome2&"','"&Citta_nascita2&"','"&data_nascita2&"','"&nome3&"','"&cognome3&"','"&Citta_nascita3&"','"&data_nascita3&"','"&nome4&"','"&cognome4&"','"&Citta_nascita4&"','"&data_nascita4&"','"&nome5&"','"&cognome5&"','"&Citta_nascita5&"','"&data_nascita5&"','"&Rappresentante&"')"
Conn.Execute(SQL)
%>
<%
'SQL="SELECT * FROM riviste WHERE pdv="&pdv
SQL="SELECT id FROM corsi"

Conn.Execute(SQL)
%>
<% if id > "15" then response.redirect("datimancanti.asp") end if%>
<table width="60%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><p align="center"><font color="#000080" face="Verdana, Arial, Helvetica, sans-serif"><strong>PREVENZIONE
E SICUREZZA 2006/2007<br>
Inserimento effettuato</strong></font><br>
<font face="Verdana, Arial, Helvetica, sans-serif"><strong><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Codice
pdv:
<% response.write pdv %>
</font></strong></font><br>
<font color="#FF0000" size="2" face="Verdana, Arial, Helvetica, sans-serif"><strong>Prenotazione
effettuata per il corso di </strong></font><font face="Verdana, Arial, Helvetica, sans-serif"><strong><font size="3" color="#FF0000"face="Verdana, Arial, Helvetica, sans-serif">
<% =tipo_corso %>
</font></strong></font></p>
<table width="100%" border="1" cellpadding="0" cellspacing="0" bordercolor="#0066FF">
<tr>
<td colspan="2" bgcolor="#0066FF"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><strong><font color="#FFFFFF">Le
persono che parteciperanno sono:</font></strong></font></td>
</tr>
<tr>
<td><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><font color="#000099"><strong>Nome:</strong></font>
<% =nome %>
<br>
<strong><font color="#000099">Cognome:</font></strong>
<% =cognome %>
<br>
<strong><font color="#000099">Citta:</font></strong>
<% =Citta_nascita %>
<br>
<strong><font color="#000099">Data:</font></strong> <%= data_nascita %></font></td>
<td><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><font color="#000099"><strong>Nome:</strong></font>
<% =nome2 %>
<br>
<strong><font color="#000099">Cognome:</font></strong>
<% =cognome2 %>
<br>
<strong><font color="#000099">Citta:</font></strong>
<% =Citta_nascita2 %>
<br>
<strong><font color="#000099">Data:</font></strong> <%=data_nascita2 %></font></td>
</tr>
<tr>
<td><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><font color="#000099"><strong>Nome:</strong></font>
<% =nome3 %>
<br>
<strong><font color="#000099">Cognome:</font></strong>
<% =cognome3 %>
<br>
<strong><font color="#000099">Citta:</font></strong>
<% =Citta_nascita3 %>
<br>
<strong><font color="#000099">Data:</font></strong> <%= data_nascita3 %></font></td>
<td><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><font color="#000099"><strong>Nome:</strong></font>
<% =nome4 %>
<br>
<strong><font color="#000099">Cognome:</font></strong>
<% =cognome4 %>
<br>
<strong><font color="#000099">Citta:</font></strong>
<% =Citta_nascita4 %>
<br>
<strong><font color="#000099">Data:</font></strong> <%=data_nascita4%></font></td>
</tr>
<tr>
<td width="45%" rowspan="2"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><font color="#000099"><strong>Nome:</strong></font>
<% =nome5 %>
<br>
<strong><font color="#000099">Cognome:</font></strong>
<% =cognome5 %>
<br>
<strong><font color="#000099">Citta:</font></strong>
<% =Citta_nascita5 %>
<br>
<strong><font color="#000099">Data:</font></strong> <%=data_nascita5 %></font></td>
<td width="55%"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><font color="#000099"><strong>Legale
Rappresentante:<%=Rappresentante %></strong></font><br>
</font></td>
</tr>
<tr>
<td><font color="#000080" size="1" face="Verdana, Arial, Helvetica, sans-serif"><strong>Costo
a persona:</strong></font><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><font color="#000099"><strong><%=Costi %></strong></font></font>
</td>
</tr>
</table>
<br>
<br>
<table width="100%" height="177" border="1" cellpadding="0" cellspacing="0" bordercolor="#B3B3FF">
<tr>
<td height="36"><strong><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><a href="javascript:window.print()">Stampa
questa pagina <img src="file:///C|/Inetpub/wwwroot/Archivio_asp/ASP/riviste/stampa.JPG" width="30" height="30" border="0" align="absmiddle"></a></font></strong></td>
</tr>
<tr>
<td height="36"><strong><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><a href="elencoordini.asp?pdv=<%=pdv%>">Visualizza
tutti i corsi prenotati dal tuo pdv</a></font></strong></td>
</tr>
</table>
<br>
<table width="100%" border="0">
<tr>
<td bgcolor="#0066FF"> <p align="center"><font color="#FFFFFF" size="2" face="Verdana, Arial, Helvetica, sans-serif">per
informazioni sulle prenotazioni contattare i numeri:<br>
059.326.742 - <strong>FABRIZIO COPPA</strong>- Responsabile Sicurezza</font></p></td>
</tr>
</table>

</td>
</tr>
</table>
</body>
</html>
Se ho ben capito quello che vuoi fare manca l'apertura del recordset.
Poi qui:
<% if id > "15" then response.redirect("datimancanti.asp") end if%>

vai a recuperare una variabile id che non hai mai valorizzato.

Una cosa ancora:
con
<% if id > "15" then response.redirect("datimancanti.asp") end if%>
vuoi dire che se ci sono più di 15 record nel db vai alla pagina datimancanti.asp, oppure se il numero di id di un record è maggiore di 15 vai alla pagina datimancanti.asp?

Alberto Biancardo
9 messaggi dal 07 marzo 2006
www.sirio.net
Comunque sia io penso che dovrebbe scrivere una cosa del genere


<% if id > 15 then response.redirect("datimancanti.asp") end if%>

'id senza apici
593 messaggi dal 09 ottobre 2002
www.dotnetside.org
ginetto ha scritto:
Comunque sia io penso che dovrebbe scrivere una cosa del genere


<% if id > 15 then response.redirect("datimancanti.asp") end if%>

'id senza apici


iako77 ascolta quello che ti ha detto biank perchè il problema principale è proprio la mancata istanza dell'oggetto Recordset e, di conseguenza, l'errata indicazione del parametro id

Quindi, dopo la riga:

Conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="& server.MapPath("Prevenzione.mdb")

aggiungici:

SET objRS = Server.CreateObject("ADODB.Recordset")

e, successivamente, sostituisci:

Conn.Execute(SQL)

con:

objRS.Open SQL, Conn

e ancora:

<% if id > 15 then response.redirect("datimancanti.asp") end if%>

con:

<% if objRS("id") > 15 then response.redirect("datimancanti.asp") end if%>

Ferme restanti le considerazioni fatte da biank a proposito della logicità del controllo sull'id!

In più, a scanso di equivoci, concludi lo script con:

objRS.Close
SET objRS = Nothing
Conn.Close
SET Conn = Nothing

Che sono le istanze di Chiusura e distruzione degli oggetti Recordset e Connection che vanno SEMPRE effettuate!

Ciao

Pochi post. Anzi, quasi quasi spengo
http://www.dotnetside.org/

Torna al forum | Feed RSS

ASPItalia.com non è responsabile per il contenuto dei messaggi presenti su questo servizio, non avendo nessun controllo sui messaggi postati nei propri forum, che rappresentano l'espressione del pensiero degli autori.