Ciao ho un problema con l'aggiunta di nuovi campi in una tabella di un database, partendo da una selected di un form...
Praticamente mi aggiunge il campo ma invece che inserirmi il testo selezionato nella select, mi aggiunge la sua posizione nella select. Ad esempio il secondo valore del menu' a tendina e' Advice quando lo seleziono e lo invio nel campo corrispondente lui mi invia 2 cioe' la sua posizione nella select in questione.
Questo primo script e' quello relativo al form:
<td colspan="3" valign="top" bgcolor="#FFFFFF">
<select name="Type" size="1" class="inputbox" id="Type" value="">
<option></option>
<%
sql = "SELECT IdType,Type FROM TypeMessage ORDER BY Type"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn ,3,3
'rs.movefirst
Dim passaggio
Passaggio = Request.Form("Type")
if Passaggio="" then Passaggio=0
dim prova
do while not(rs.eof)
%>
<option value="<%=rs(0)%>"
<%
prova=rs(0)
if cint(prova)=cint(passaggio) then response.write " selected "
%>
><%=rs.fields("Type")%></option>
<%
rs.movenext
loop
rs.Close
set rs = Nothing
%>
</select></td>
questo invece e' il file che fa l'aggiunta della select:
<%
sql = "SELECT * FROM MessageBoard "
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn ,1,3
RS.Addnew
RS.fields("Type") = request("Type")
RS.update
rs.Close
set rs = Nothing
%>
Qualcuno mi puo' essere di aiuto?
Grazie e ciao
Rispondi quotando
