Bueno me ando liando con el codigo que me pusiste amigo espero puedas darme una manito mira uso 2 paginas y al procesar la info imprimo los valores para comprobar que salgan y nada incluso no los manda a guardar, ojala puedas ayudarme, saludos
p8.asp
Código PHP:
<%
dim conn, rs, i
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="& server.mappath("base.mdb")
SQL = "SELECT id_cat_espec, nombre FROM cat_especialidades ORDER BY nombre"
Set rs = conn.Execute(SQL)
i = 0
While Not rs.EOF
i = i + 1
%>
<tr>
<td width="270" class="borde_sky_bottom_right"><%=i&".- "&rs("nombre")%></td>
<td width="120" align="center" class="borde_sky_bottom_right"><input type="checkbox" value="Si" name="a_<%=rs("id_cat_espec")%>" /></td>
<td width="120" align="center" class="borde_sky_bottom_right"><input type="checkbox" value="Si" name="b_<%=rs("id_cat_espec")%>" /></td>
<td width="120" align="center" class="borde_sky_bottom"><input type="checkbox" value="Si" name="c_<%=rs("id_cat_espec")%>" /></td>
</tr>
<%
rs.MoveNext
Wend
rs.Close
%>
p8_pro.asp
Código PHP:
<%
Dim conn,db, Campos, Valores
Set conn = Server.CreateObject("ADODB.Connection")
Set db = Server.CreateObject("ADODB.Recordset")
conn.Open "Driver={Microsoft Access Driver (*.mdb)}; " & "Dbq=" & Server.MapPath("base.mdb")
if request("boton")<>"" Then 'esto es para distinguir la primera vez que se carga página de cuando se haya ejecutado el formulario
sql = "INSERT INTO etapa_esp (campos) VALUES (valores)"
Campos = ""
Valores= ""
for each control in request.QueryString
for indice=1 to request.QueryString(control).count
if control <> "boton" Then
Campos = Campos & control & ","
Valores= Valores & "'" & request.QueryString(control)(indice) &","
End if
next
next
Campos = Left(Campos, Len(Campos)-1)
Valores= Left(Valores, Len(Valores)-1)
sql = Replace(sql, "campos", Campos)
sql = Replace(sql, "valores", Valores)
conn.Execute(sql)
conn.Close()
Response.write sql
Response.End
End If
Response.write ("Campos: "&Campos&"<br>")
Response.write ("Valores: "&Valores&"<br>")
%>