Aiuto codice

iako77 · 9 Mar 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!!!!!!!!!

lukeonweb · 9 Mar 2006

<%
Dim rs
SQL="SELECT id FROM corsi"

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

<%Set rs = Nothing%>

hai un sito di corsi?

iako77 · 10 Mar 2006

Modifica codice

Ciao,
non ho un sito di corsi ma devo produrre un modulo per iscrizione a corsi.

Ho provato ad inserire il tuo codice ma non ha sortito effetto, adesso me ne hanno suggerito un altro che non sortisce effetto ma a sentimento mi sembra più articolato.

Te lo allego così se hai tempo puoi verificare dove sta l'errore.
Merci per l'assistenza.
mi segna errore su questa riga:
if objRS("id") > 15 then response.redirect("datimancanti.asp") end if

Vi allego il codice "corretto".
<!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")
SET objRS = Server.CreateObject("ADODB.Recordset")

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&"')"
objRS.Open SQL, Conn

if objRS("id") > 15 then response.redirect("datimancanti.asp") end if
objRS.Close
SET objRS = Nothing
Conn.Close
SET Conn = Nothing
%>

<table width="60%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td>PREVENZIONE
E SICUREZZA 2006/2007 
Inserimento effettuato 
Codice
pdv:
<% response.write pdv %>
 
Prenotazione
effettuata per il corso di 
<% =tipo_corso %>

<table width="100%" border="1" cellpadding="0" cellspacing="0" bordercolor="#0066FF">
<tr>
<td colspan="2" bgcolor="#0066FF">Le
persono che parteciperanno sono:</td>
</tr>
<tr>
<td>Nome:
<% =nome %>
 
Cognome:
<% =cognome %>
 
Citta:
<% =Citta_nascita %>
 
Data: <%= data_nascita %></td>
<td>Nome:
<% =nome2 %>
 
Cognome:
<% =cognome2 %>
 
Citta:
<% =Citta_nascita2 %>
 
Data: <%=data_nascita2 %></td>
</tr>
<tr>
<td>Nome:
<% =nome3 %>
 
Cognome:
<% =cognome3 %>
 
Citta:
<% =Citta_nascita3 %>
 
Data: <%= data_nascita3 %></td>
<td>Nome:
<% =nome4 %>
 
Cognome:
<% =cognome4 %>
 
Citta:
<% =Citta_nascita4 %>
 
Data: <%=data_nascita4%></td>
</tr>
<tr>
<td width="45%" rowspan="2">Nome:
<% =nome5 %>
 
Cognome:
<% =cognome5 %>
 
Citta:
<% =Citta_nascita5 %>
 
Data: <%=data_nascita5 %></td>
<td width="55%">Legale
Rappresentante:<%=Rappresentante %> 
</td>
</tr>
<tr>
<td>Costo
a persona:<%=Costi %>
</td>
</tr>
</table>
 
 
<table width="100%" height="177" border="1" cellpadding="0" cellspacing="0" bordercolor="#B3B3FF">
<tr>
<td height="36"><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></td>
</tr>
<tr>
<td height="36"><a href="elencoordini.asp?pdv=<%=pdv%>">Visualizza
tutti i corsi prenotati dal tuo teacher</a></td>
</tr>
</table>
 
</td>
</tr>
</table>
</body>
</html>

daviduccio · 10 Mar 2006

Apri il recordset prima dell'inserimento dei dati!!
Prima metti l'inserimento dei dati e poi apri il recordset di estrazione.
Aprendolo prima, hai a disposizione tutti i dati ma tranne quello che giustamente sarà inserito dopo.

Aiuto codice

iako77

Nuovo Utente

lukeonweb

Utente Attivo

iako77

Nuovo Utente

daviduccio

Moderatore

Discussioni simili

Aiuto codice

iako77

Nuovo Utente

lukeonweb

Utente Attivo

iako77

Nuovo Utente

daviduccio

Moderatore

Discussioni simili

Privacy & Transparency

Privacy & Transparency