02/04/2002, 17:24
|
 | | | Fecha de Ingreso: mayo-2001 Ubicación: Cali
Mensajes: 2.423
Antigüedad: 24 años Puntos: 20 | |
| Problemas en Brinkster
Tengo el siguiente codigo de mi pagina default.asp que esta en la direccion www30.brinkster.com/cejarcon/default.asp porque no me carga el formulario completo?
<html>
<head>
<title>Insertar Datos</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body bgcolor="#FFFFFF" text="#000000">
<form name="form3" method="post" action="canciones.asp">
<p>Digite el Titulo de la Cancion a Insertar a la Base de Datos</p>
<p>
<input type="text" name="titulo">
</p>
<p>Seleccione el Artista que la Interpreta</p>
<p>
<select name="opciones" size="1">
<%
'Abre la conexión con la base de datos a través de una conexión ODBC
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("\cejarcon\db\musica.mdb" )
'Ejecuta un sentencia SQL de consulta
sql = "SELECT * FROM artista ORDER BY nombre"
Set result = con.Execute(sql)
'Recorre todas las filas del resultado
Do While Not result.EOF
'Imprimimos los contenidos del listbox
response.write "<option value='" & result("nombre") & "'>" & result("nombre") & "</option>"
'Pasa a la siguiente fila
result.MoveNext
Loop
'Cerramos las conexiones y el recordset
result.Close
Set result = Nothing
con.Close
Set con = Nothing
%>
</select>
</p>
<p>Seleccione la Ubicacion del Archivo</p>
<p>
<select name="ubicacion" size="1">
<%
'Abre la conexión con la base de datos a través de una conexión ODBC
Set Con = Server.CreateObject("ADODB.Connection")
Con.Open "musica"
'Ejecuta un sentencia SQL de consulta
sql = "SELECT * FROM ubicacion ORDER BY ubicacion"
Set result = con.Execute(sql)
'Recorre todas las filas del resultado
Do While Not result.EOF
'Imprimimos los contenidos del listbox
response.write "<option value='" & result("ubicacion") & "'>" & result("ubicacion") & "</option>"
'Pasa a la siguiente fila
result.MoveNext
Loop
'Cerramos l |