
19/01/2002, 20:27
|
| | Fecha de Ingreso: enero-2002
Mensajes: 27
Antigüedad: 23 años, 3 meses Puntos: 0 | |
Re: no e actuan las paginas sobre la base de datos Hola os pondre los codigos gracias
CODIGO DE LA PAGINA HTML INICIAL
<FORM METHOD="POST" ACTION="insertar.asp">
Nombre<br>
<INPUT TYPE="TEXT" NAME="nombre"><br>
Teléfono<br>
<INPUT TYPE="TEXT" NAME="telefono"><br>
<INPUT TYPE="SUBMIT" value="Insertar">
</FORM>
------------------------------------------
cODIGO DE LA PAGINA INSERTAR
<%
'Recogemos los valores del formulario
nombre=Request.Form("nombre")
telefono= Request.Form("telefono")
'Instanciamos y abrimos nuestro objeto conexion
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Mibase"
'Ahora creamos la sentencia SQL
sSQL="Insert Into Clientes (nombre,telefono) values ('" & nombre & "','" & telefono & "')"
'Ejecutamos la orden
set RS = Conn.Execute(sSQL)
%>ASP
--------------------------------------------
CODIGO DE LA PAGINA LEER ASP
<%
'Antes de nada hay que instanciar el objeto Connection
Set Conn = Server.CreateObject("ADODB.Connection")
'Una vez instanciado Connection lo podemos abrir y le asignamos la base de datos donde vamos a efectuar las operaciones
Conn.Open "Mibase"
'Ahora creamos la sentencia SQL que nos servira para hablar a la BD
sSQL="Select * From Clientes Order By nombre"
'Ejecutamos la orden
set RS = Conn.Execute(sSQL)
'Mostramos los registros%>
<table align="center">
<tr>
<th>Nombre</th>
<th>Teléfono</th>
</tr>
<%
Do While Not RS.Eof
%>
<tr>
<td><%=RS("nombre")%></td>
<td><%=RS("telefono")%>&l t;/td>
</tr>
<%
RS.MoveNext
Loop
'Cerramos el sistema de conexion
Conn.Close
%>
---------------------------------------
POR CIERTO YA HE DADO PERMISOS DE LECTURA Y ESCRITURA A MI SITE VIRTUAL PWP
Y LO QUE PRETENDO ES HACER UNA PEQUEÑA BASE DE DATOS PARA DAR DE ALTA ALA GENTE CON SUSU PASSWORS
GRACIAS |