de asp a php

peke?
17 de Enero del 2005
tengo este codigo en asp como seria en php?

<HTML>
<HEAD>
<title>Buscar Usuario</title>
<script language="javascript">
<!--
function comprobar()
{
if (document.insert.rut.value=='')
{
alert('Debe Introducir el Rut del Usuario');
return(1);
}
if (document.insert.nombres.value=='')
{
alert('Debe Introducir los Nombres del Usuario');
return(1);
}
if (document.insert.apellidos.value=='')
{
alert('Debe Introducir los Apellidos del Usuario');
return(1);
}
if (document.insert.direccion.value=='')
{
alert('Debe Introducir la Dirección del Usuario');
return(1);
}
if (document.insert.telefono.value=='')
{
alert('Debe Introducir el Teléfono del Usuario');
return(1);
}
return(0);
}
//-->
</script>
</HEAD>
<BODY background="soldado.jpg">
<%
if request.form="" then
%>
<form method="post" action="buscarusuario.asp" name="insert" onsubmit="if(comprobar())
return(false)"<br>
<center><h2>INSERTE DATOS DEL USUARIO A BUSCAR<BR></center></h2>
<center>Rut: <input name="rut"><br></center>
<p>
<p>
<center><INPUT TYPE="submit" VALUE="Buscar"></center>

</FORM>
<%
else
dim conn
dim rut
dim nombres
dim apellidos
dim direccion
dim telefono
dim sql
dim rs

rut=request.form("rut")
'response.write(rut)
nombres=request.form("nombres")
'response.write(nombres)
apellidos=request.form("apellidos")
'response.write(apellidos)
direccion=request.form("direccion")
telefono=request.form("telefono")


set conn=server.createobject ("ADODB.connection")
set rs=server.createobject ("ADODB.recordset")
conn.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" &Server.MapPath("nus.mdb")


sql="select* from usuario where rut='"&rut&"'"
rs.open sql,conn
if rs.eof then
response.write"<center><h>No Existen Registros</h></center>"
else
%>
<table border="1"align="center">
<tr bgcolor="ff9900" >
<th>Rut</th>
<th>Nombres</th>
<th>Apellidos</th>
<th>Direccion</th>
<th>Telefono</th>
</tr>
<%
do while not rs.eof
%>

<tr bgcolor="#FFFF99">
<td><%=rs ("rut")%></td>
<td><%=rs ("nombres")%></td>
<td><%=rs("apellidos")%></td>
<td><%=rs("direccion")%></td>
<td><%=rs("telefono")%></td>
</tr>
<%
rs.movenext
loop
%>
</table>
<% end if%>

<form method="post" action="modificar1.asp" name="insert" onsubmit="if(comprobar())
return(false)"><br>
<center><marquee><h1>Inserte el Rut del Cliente a Actualizar</h1></marquee></center>


<%

rut=request.form("rut")
response.write(rut)
nombres=request.form("nombres")
response.write(nombres)
apellidos=request.form("apellidos")
response.write(apellidos)
direccion=request.form("direccion")
telefono=request.form("telefono")


set conn=server.createobject ("ADODB.connection")
set rs=server.createobject ("ADODB.recordset")
conn.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" &Server.MapPath("nus.mdb")


sql="select* from usuario where rut='"&rut&"'"
rs.open sql,conn
if rs.eof then
response.write"<center><h>No Existen Registros</h></center>"
else
%>
<%
do while not rs.eof
%>

<center>Rut :<INPUT NAME="rut" value="<%=rs("rut")%>" disabled="true" size="8" ><BR></center>
<center>Nombre :<INPUT NAME="nombres" value="<%=rs ("nombres")%>" ><BR></center>
<center>Apellidos :<INPUT NAME="apellidos" value="<%=rs("apellidos")%>" ><BR></center>
<center>Direccion :<INPUT NAME="direccion" value="<%=rs("direccion")%>" ><BR></center>
<center>Telefono :<INPUT NAME="telefono" value="<%=rs("telefono")%>" ><BR></center>

<%
rs.movenext
loop

%>
<center><INPUT TYPE=submit VALUE="Enviar"></center>
</form>
<%


rut=request.querystring("rut")
response.write(rut)
nombres=request.querystring("nombres")
response.write(nombres)
apellidos=request.querystring("apellidos")
'response.write(apellidos)
direccion=request.querystring("direccion")
'response.write(direccion)
telefono=request.querystring("telefono")
'response.write(telefono)

SQL="Update Usuario set nombres='"&nombres&"',apellidos='"&apellidos&"',direccion='"&direccion&"',telefono='"&telefono&"' where rut='"&rut&"' "

SET Obj_Conn=Server.CreateObject("ADODB.Connection")
set Obj_RS=Server.CreateObject("ADODB.Recordset")
Obj_Conn.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("nus.mdb")

Obj_Conn.Execute SQL

Obj_Conn.Close
SET Obj_Conn=Nothing
%>
<center><h2>LOS DATOS YA ESTAN ACTUALIZADOS</center></h2>
<center><p><h4><a href="C:WINDOWSEscritorioTrabajo Aldeaindex.html">Volver</a></p></h4></center>

<%
END IF
end if
%>

</BODY>
</HTML>

eth0
17 de Enero del 2005
Sería más bonito, más eficiente y además LIBRE.