..estoy haciendo un sitio en dreamweaver y asp y se me ocurrio!! crear un formulario de inscripcion en el cual me aparezcan dos menus dependientes, junto con estos iran datos a completar como nombre ciudad telefono etcc...cuando la persona se inscriba o coloque un anuncio podra elegir la categoria y la subcategoria correspondiente, pero cual e sla idea es cuando elija la ctaegoria se muestre solo la voz de esa categoria por ejemplo auto solo muestre la subcategoria de esa categoria..cosa que sea mas facil la eleccion, una vez completados los datos como nombre etc... se archivara todo en una base de datos donde despues yo podre ver la eprsona que se inscribio en esa categoria en la subcategoria correspondiente...lo que no logro hacer es poder grabar los datos de las personas problema que no tenia hasta que incorpore las listas independientes que me da error, pero las listas se conectan a la base de datos...espeor no haber sido muy enredada ni latera..si alguien me puede dar una manito...estare muy muy agradecida.. este es el codigo que tengo que pienso que es errado por mi ingnorancia en el tema...(pero tengo ganas de aprender)
<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="Connections/annunci.asp" -->
<%
' *** Edit Operations: declare variables
MM_editAction = CStr(Request("URL"))
If (Request.QueryString <> "si") Then
MM_editAction = MM_editAction & "?" & Request.QueryString
End If
' boolean to abort record edit
MM_abortEdit = false
' query string to execute
MM_editQuery = ""
%>
<%
' *** Insert Record: set variables
If (CStr(Request("MM_insert")) = "form1") Then
MM_editConnection = MM_annunci_STRING
MM_editTable = "annunci"
MM_editRedirectUrl = "indexit.asp"
MM_fieldsStr = "textfield|value|textfield2|value|textfield3|value |textfield4|value|idcategoria|value|ubicacion|valu e|textfield5|value|textfield6|value"
MM_columnsStr = "Nome|',none,''|Mail|',none,''|Località|',none,''| Categoria|',none,''|subcategoria|',none,''|Oggetto Annuncio|',none,''|Annuncio|',none,''|image|',none ,''"
' create the MM_fields and MM_columns arrays
MM_fields = Split(MM_fieldsStr, "|")
MM_columns = Split(MM_columnsStr, "|")
' set the form values
For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2
MM_fields(MM_i+1) = CStr(Request.Form(MM_fields(MM_i)))
Next
' append the query string to the redirect URL
If (MM_editRedirectUrl <> "" And Request.QueryString <> "") Then
If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0 And Request.QueryString <> "") Then
MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString
Else
MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString
End If
End If
End If
%>
<%
' *** Insert Record: construct a sql insert statement and execute it
Dim MM_tableValues
Dim MM_dbValues
If (CStr(Request("MM_insert")) <> "") Then
' create the sql insert statement
MM_tableValues = ""
MM_dbValues = ""
For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2
MM_formVal = MM_fields(MM_i+1)
MM_typeArray = Split(MM_columns(MM_i+1),",")
MM_delim = MM_typeArray(0)
If (MM_delim = "none") Then MM_delim = ""
MM_altVal = MM_typeArray(1)
If (MM_altVal = "none") Then MM_altVal = ""
MM_emptyVal = MM_typeArray(2)
If (MM_emptyVal = "none") Then MM_emptyVal = ""
If (MM_formVal = "") Then
MM_formVal = MM_emptyVal
Else
If (MM_altVal <> "") Then
MM_formVal = MM_altVal
ElseIf (MM_delim = "'") Then ' escape quotes
MM_formVal = "'" & Replace(MM_formVal,"'","''") & "'"
Else
MM_formVal = MM_delim + MM_formVal + MM_delim
End If
End If
If (MM_i <> LBound(MM_fields)) Then
MM_tableValues = MM_tableValues & ","
MM_dbValues = MM_dbValues & ","
End If
MM_tableValues = MM_tableValues & MM_columns(MM_i)
MM_dbValues = MM_dbValues & MM_formVal
Next
MM_editQuery = "insert into " & MM_editTable & " (" & MM_tableValues & ") values (" & MM_dbValues & ")"
If (Not MM_abortEdit) Then
' execute the insert
Set MM_editCmd = Server.CreateObject("ADODB.Command")
MM_editCmd.ActiveConnection = MM_editConnection
MM_editCmd.CommandText = MM_editQuery
MM_editCmd.Execute
MM_editCmd.ActiveConnection.Close
If (MM_editRedirectUrl <> "") Then
Response.Redirect(MM_editRedirectUrl)
End If
End If
End If
%>
<%
Dim Recordset1
Dim Recordset1_numRows
Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_annunci_STRING
Recordset1.Source = "SELECT * FROM annunci"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 1
Recordset1.Open()
Recordset1_numRows = 0
%>
<form method="POST" action="<%=MM_editAction%>" name="form1">
<table align="center">
<tr valign="baseline">
<td nowrap align="right">Nome:</td>
<td><input type="text" name="textfield" /></td>
</tr>
<tr valign="baseline">
<td nowrap align="right">Mail:</td>
<td><input type="text" name="textfield2" /></td>
</tr>
<tr valign="baseline">
<td nowrap align="right">Recapito:</td>
<td><input type="text" name="textfield3" /></td>
</tr>
<tr valign="baseline">
<td nowrap align="right">Località:</td>
<td><input type="text" name="textfield4" /></td>
</tr>
<tr valign="baseline">
<td nowrap align="right">Categoria:</td>
<td> <select name=idcategoria onchange="location.href('selects_dependientes1.asp ?idcategoria=' + form1.idcategoria.options[form1.idcategoria.selectedIndex].value)">
<option value="%">scegli categoria</option>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db/annunci.mdb"))
SQL_categoria="select * from categorias order by categoria asc"
set RS_categoria=createobject("ADODB.Recordset")
RS_categoria.open SQL_categoria,conn
do while not RS_categoria.eof
categoria = RS_categoria("categoria")
idcategoria = RS_categoria("idcategoria")
p = request.querystring("categoria")
if p <> "" then
if p = categoria then
response.write "<option value="&idcategoria&"&categoria="&categoria&" selected>"&categoria&"</option>"
elseif p <> categoria then
response.write "<option value="&idcategoria&"&categoria="&categoria&">"&ca tegoria&"</option>"
end if
else
response.write "<option value="&idcategoria&"&categoria="&categoria&">"&ca tegoria&"</option>"
end if
RS_categoria.movenext
loop
RS_categoria.close
%>
</select>
<% if request.querystring("idcategoria") <> "" then %> </td>
<tr valign="baseline">
<td nowrap align="right"> <p>Subcategoria::</td>
<td><select name=ubicacion>
<%
SQL_subcat="select* from subcategorias where categoria="&request.querystring("idcategoria")&" order by subcategoria asc"
set RS_subcat=createobject("ADODB.Recordset")
RS_subcat.open SQL_subcat,conn
do while not RS_subcat.eof
categoria = request.querystring("categoria")
subcategoria = RS_subcat("subcategoria")
%>
<option value="<%=subcategoria%>, <%=categoria%>"><%=subcategoria%></option>
<%
RS_subcat.movenext
loop
RS_subcat.close
%>
</select>
<% end if %>
</td>
</tr>
<tr valign="baseline">
<td nowrap align="right">OggettoAnnuncio:</td>
<td><input type="text" name="textfield5" /></td>
</tr>
<tr valign="baseline">
<td nowrap align="right">Annuncio:</td>
<td><textarea name="textfield6"></textarea></td>
</tr>
<tr valign="baseline">
<td nowrap align="right">Data</td>
<td><% 'Set the variable the web server date and time .
dtmVar = Date ()
%>
<% = dtmVar %>
</td>
</tr>
<tr valign="baseline">
<td nowrap align="right">Scadenza</td>
<td><% 'Set the variable the web server date and time .
dtmVar1 = Date ()+ 20
%>
<% = dtmVar1 %> </td>
</tr>
<tr valign="baseline">
<td nowrap align="right">Image:</td>
<td><input type="text" name="textfield7" /></td>
</tr>
<tr valign="baseline">
<td nowrap align="right"> </td>
<td><input type="submit" value="Inserisci "> </td>
</tr>
</table>
<input type="hidden" name="MM_insert" value="form1">
</form>
<p> </p>
<%
Recordset1.Close()
Set Recordset1 = Nothing
%>
