introducir datos con combobox en access con ASP

jordift · #1 (**permalink**) 16/01/2008, 08:43

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

jordift · #2 (**permalink**) 16/01/2008, 08:47

he econtrado esto pero no me funciona no logro pasar lo datos del combo a datos.asp

<Select NAME="f_pais" SIZE=1>
<% Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="&Server.MapPath("geo.mdb")&";"
Set rs = conn.Execute("SELECT * FROM t_pais")
Do While Not rs.EOF %>
<Option VALUE="<%= rs("id") %>"> <%= rs("c_pais") %>
<% rs.MoveNext
Loop
rs.Close
conn.Close %>
</Select>

El archivo DATOS.ASP lo he puesto asi (os indico lo que he modificado)

Cita:

c_concepto_oferta=request.form("f_concepto_oferta" )
c_comentarios=request.form("f_comentarios")
c_pais=request.form("f_pais")

Cita:

rs.open "t_ofertas", conexion
rs.addnew
rs("c_concepto_oferta")=c_concepto_oferta
rs("comentarios")=c_comentarios
rs("cb_pais")=c_pais
rs.update
rs.close

jordift · #3 (**permalink**) 16/01/2008, 10:54

bueno ya he solucionado el problema, fusionando los dos archivos en uno solo :D