Problemas con el envio de registros a BD
Publicado por Andrea (1 intervención) el 09/02/2007 19:18:14
Hola a todos.......mi problema es el siguiente........resulta que no puedo mandar mis registros a una BD creada en Access.........este el codigo
Codigo Html
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<TITLE> Usuario nuevo </TITLE>
</HEAD>
<BODY bgcolor="#FB9925">
<table border=0 align="center">
<form action="Cone.asp" method="post" >
<tr>
<td><b>Codigo:</b></td><td><input type="text" name="txtcod"></td>
</tr>
<tr>
<td><b>Apellidos y Nombres:</b></td><td><input type="text" name="txtnom"></td>
</tr>
<tr>
<td><b>Cargo:</b></td><td><input type="Text" name="txtcar"></td>
</tr>
<tr>
<td><b>Correo:</b></td><td><input type="Text" name="txtcorr"></td>
</tr>
<tr>
<td><b>Pais:</b></td><td><input type="Text" name="txtpais"></td>
</tr>
<tr>
<td><input type="Submit" value="Guardar"></td>
<td><input type="Reset" value="Borrar"></td>
</tr>
</form>
</table>
</BODY>
</HTML>
-------------------------------------------------------------------------------------------------->
Y el Codigo de ASP
<%@ Language=VBScript %>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY>
<%
dim con,rs,sql,cod,nom,car,corr,pais
cod = Trim(Request.Form("txtcod"))
nom = Trim(Request.Form("txtnom"))
car = Trim(Request.Form("txtcar"))
corr = Trim(Request.Form("txtcorr"))
pais = Trim(Request.Form("txtpais")
if len("txtcod") = "" then
rsponse.write("<center><b>Debes rellenar todos los campos</b></center>")
else
set con = server.CreateObject("ADODB.Connection")
con.open "Provider=Microsoft.Jet.OLEDB.4.0;Data source=" & server.MapPath("Ejemplo.mdb")
set rs = server.CreateObject("ADODB.Recordset")
sql = "Select * From Tabla1"
rs.open sql,con,1,2
rs.addnew
rs.fields("Codigo") = cod
rs.fields("Apellidos") = nom
rs.fields("Cargo") = car
rs.fields("Correo") = corr
rs.fields("Pais") = pais
rs.update
rs.movefirst
end if
do until rs.eof
%>
<table border=7 BORDERCOLOR="Black" align="center" width=600>
<tr>
<td><b>Codigo:</b><td><%=rs.fields("COD")%></td>
</tr>
<tr>
<td><b>Apellidos y Nombres:</b></td><td><%=rs.fields("NOM")%></td>
</tr>
<tr>
<td><b>Cargo:</b></td><td><%=rs.fields("CARGO")%></td>
</tr>
<tr>
<td><b>Correo</b></td><td><%=rs.fields("CORR")%></td>
</tr>
<tr>
<td><b>Pais</b></td><td><%=rs.fields("PAIS")%></td>
</tr>
</tr><br><p><br><p>
</table>
<%
rs.movenext
loop
rs.close
con.close
end if
%>
<P> </P>
</BODY>
</HTML>
--------------------------------------------------------------------------------------------------->
Me bota una error: " HTTP 500 - Error interno del servidor
Internet Explorer "
--------------------------------------------------------------------------------------------------->
Derrepente me equivocado en una parte del Codigo,ojala me puedan ayudar...gracias de antemano
Disculpen Tanto Codigo
Salu2
Codigo Html
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<TITLE> Usuario nuevo </TITLE>
</HEAD>
<BODY bgcolor="#FB9925">
<table border=0 align="center">
<form action="Cone.asp" method="post" >
<tr>
<td><b>Codigo:</b></td><td><input type="text" name="txtcod"></td>
</tr>
<tr>
<td><b>Apellidos y Nombres:</b></td><td><input type="text" name="txtnom"></td>
</tr>
<tr>
<td><b>Cargo:</b></td><td><input type="Text" name="txtcar"></td>
</tr>
<tr>
<td><b>Correo:</b></td><td><input type="Text" name="txtcorr"></td>
</tr>
<tr>
<td><b>Pais:</b></td><td><input type="Text" name="txtpais"></td>
</tr>
<tr>
<td><input type="Submit" value="Guardar"></td>
<td><input type="Reset" value="Borrar"></td>
</tr>
</form>
</table>
</BODY>
</HTML>
-------------------------------------------------------------------------------------------------->
Y el Codigo de ASP
<%@ Language=VBScript %>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY>
<%
dim con,rs,sql,cod,nom,car,corr,pais
cod = Trim(Request.Form("txtcod"))
nom = Trim(Request.Form("txtnom"))
car = Trim(Request.Form("txtcar"))
corr = Trim(Request.Form("txtcorr"))
pais = Trim(Request.Form("txtpais")
if len("txtcod") = "" then
rsponse.write("<center><b>Debes rellenar todos los campos</b></center>")
else
set con = server.CreateObject("ADODB.Connection")
con.open "Provider=Microsoft.Jet.OLEDB.4.0;Data source=" & server.MapPath("Ejemplo.mdb")
set rs = server.CreateObject("ADODB.Recordset")
sql = "Select * From Tabla1"
rs.open sql,con,1,2
rs.addnew
rs.fields("Codigo") = cod
rs.fields("Apellidos") = nom
rs.fields("Cargo") = car
rs.fields("Correo") = corr
rs.fields("Pais") = pais
rs.update
rs.movefirst
end if
do until rs.eof
%>
<table border=7 BORDERCOLOR="Black" align="center" width=600>
<tr>
<td><b>Codigo:</b><td><%=rs.fields("COD")%></td>
</tr>
<tr>
<td><b>Apellidos y Nombres:</b></td><td><%=rs.fields("NOM")%></td>
</tr>
<tr>
<td><b>Cargo:</b></td><td><%=rs.fields("CARGO")%></td>
</tr>
<tr>
<td><b>Correo</b></td><td><%=rs.fields("CORR")%></td>
</tr>
<tr>
<td><b>Pais</b></td><td><%=rs.fields("PAIS")%></td>
</tr>
</tr><br><p><br><p>
</table>
<%
rs.movenext
loop
rs.close
con.close
end if
%>
<P> </P>
</BODY>
</HTML>
--------------------------------------------------------------------------------------------------->
Me bota una error: " HTTP 500 - Error interno del servidor
Internet Explorer "
--------------------------------------------------------------------------------------------------->
Derrepente me equivocado en una parte del Codigo,ojala me puedan ayudar...gracias de antemano
Disculpen Tanto Codigo
Salu2
Valora esta pregunta
0