La idea es rellenar la base de datos en access llamada geo.mdb con un formulario via web.
El codigo escrito abajo funciona pero ahora quiero incluir un combobox, y no se hacerlo funcionar.Este es mi problema, alguien sabe como hacerlo?
Tablas de access:
t_ofertas
t_pais
Campos de t_ofertas:
id (clave)
cb_pais (el combo de t_pais)
c_conepto_ofertas
comentarios
Campos de t_pais:
id(clave)
c_pais (aqui estan los paises disponibles para el combo)
Dos archivos: index.asp y datos.asp
INDEX.ASP
*********
Código:
<%
%>
<html>
<head>
<title>Crear un Nuevo Foro</title>
</head>
<body bgcolor="#CCFFCC">
<p align="center"><font face="Verdana">Inserción de Datos</font></p>
<form method="POST" action="datos.asp">
<p align="center"><label >Concepto Oferta:
<textarea name="f_concepto_oferta" cols="50" rows="0"></textarea>
</label>
</p>
<p align="center"><label >Comentarios:
<textarea name="f_comentarios" cols="50" rows="5"></textarea>
</label>
</p>
</p><br>
<input type="submit" value="Enviar" name="B1">
<input type="reset" value="Restablecer" name="B2"></p>
</form>
</body>
</html>
********
FIN INDEX.ASP
DATOS.ASP
*********
Código:
<%
Const adOpenKeyset = 1
Const adLockOptimistic = 3
c_concepto_oferta=request.form("f_concepto_oferta")
c_comentarios=request.form("f_comentarios")
if c_concepto_oferta="" then %>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>Error al insertar pregunta</title>
</head>
<body>
<p align="center"><img border="0" src="images/titulo.jpg"></p>
<p align="center">Ningun campo puede estar en blanco,
<a href="index.asp">
inténtalo otra vez</a></p>
</body>
</html>
<%else
Set conexion = Server.CreateObject("ADODB.Connection")
StrCxn = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("geo.mdb") & ";"
conexion.open strcxn
set rs=createobject("ADODB.Recordset")
rs.CursorType = adOpenKeyset
rs.LockType = adLockOptimistic
rs.open "t_ofertas", conexion
rs.addnew
rs("c_concepto_oferta")=c_concepto_oferta
rs("comentarios")=c_comentarios
rs.update
rs.close
response.redirect "index.asp"
end if%>
FIN DATOS.ASP
*************
Gracias por todo y espero que este bien explicado :D