 
			
				19/01/2002, 20:27
			
			
			     |  
      |    |    |    Fecha de Ingreso: enero-2002  
						Mensajes: 27
					  Antigüedad: 23 años, 9 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               |