Problema con form ASP-CDOSYS

  • Creatore Discussione Creatore Discussione Internos
  • Data di inizio Data di inizio

Internos

Nuovo Utente
8 Gen 2007
5
0
0
Ciao, spero che qualcuno mi aiuti a venirne fuori:

Ho due files (booking.asp e process.asp)-
Il primo dei due files contiene il form, il secondo lo processa e procede all'invio.
Il problema è questo:
nel form, tra gli altri campi da compilare a mano, c'è una casella a discesa che prende i dati da un campo di un database; questa voce, però non appare nella mail che ricevo; il form viene processato regolarmente, non ricevo alcun errore ma il campo in questione non c'è.
Questa è la parte "incriminata" del form:

<%
Dim objconn,objRS,strSQL

Set objconn = Server.CreateObject("ADODB.Connection")
objconn.ConnectionString = "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("/mdb-database/risorse.mdb")
objconn.Open

Set objRs = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT distinct(Cal_CalendarName) FROM Cal_Calendars "
objRS.Open strSQL, objconn
Response.Write "<select name='Risorsa'><option value='''' selected>Selezionare una risorsa</option>"
Do While Not objRS.EOF
Response.Write "<option value=''" & objrs("Cal_CalendarName") &"''>"& objRs("Cal_CalendarName") &"</option>"
objRS.MoveNext
Loop
Response.Write "</select>"
objRs.Close
objconn.Close

%>
Il resto è statico e lo ricevo senza problemi. Qualcuno mi può aiutare?
 
Ciao :)

Strano ciò che ti accade, anche perchè il codice da te postato sembrerebbe non contenere errori!
Hai provato ad editare il codice del form di invio dati generato dalla ASP per verificare che la <select> e tutte le varie <option> siano create correttamente? (attento agli apici)

O forse nella ASP di invio e-mail hai sbagliato a richiamare il campo Risorsa, magari facendo un qualcosa tipo
request.form("Risarsa")

Se il codice ASP funziona e non ti da alcun errore il problema penso non possa risiedere in alcun'altro punto se non nel passaggio o nella creazione dei valori ;)

:byebye:
 
Esatto

Ciao, PoLe, e grazie per la risposta. Il problema era esattamente negli apici, (è sempre la cosa che mi frega).
In pratica la sintassi di per sè era corretta, però:

Response.Write "<select name='Risorsa'><option value='''' selected>Selezionare una risorsa</option>"
Do While Not objRS.EOF
Response.Write "<option value=''" & objrs("Cal_CalendarName") &"''>"& objRs("Cal_CalendarName") &"</option>"
objRS.MoveNext
Loop


l'ho sostituito con

Response.Write "<select name=""Risorsa""><option value="""" selected>Selezionare una risorsa</option>"
Do While Not objRS.EOF
Response.Write "<option value=""" & objrs("Cal_CalendarName") &""">"& objRs("Cal_CalendarName") &"</option>"
objRS.MoveNext
Loop
Response.Write "</select>"

e ora funge.
Guarda, gli apici sono proprio il mio cruccio. Il problema del request.form non si poneva perchè nella pagina process.asp (tu giustamente non potevi saperlo perchè non l'ho postata) ho ciclato con
FOR numeroCampi = 1 TO (Request.Form.Count() - 1)
IF NOT Request.Form(numeroCampi) = "" THEN
corpoMessaggio = corpoMessaggio & vbCrLf & Request.Form.Key(numeroCampi) & " = " & Trim(Request.Form(numeroCampi))
END IF
NEXT


Insomma, alla fine funge che è una bellezza, ma non immagini il tempo che ci ho perso.
Grazie ancora per la risposta!
 

Discussioni simili