parece que no responde....
puede ser que yo este mal ...
asi que les envio la programacion completa para que la puedan juzgar... y ayudarme.....
<%@ LANGUAGE="VBScript" %>
<%
Dim accion
Dim numero
Dim nombre
Dim direccion
Dim telefono
Dim strConsultaSQL
accion = Request.QueryString("accion")
nombre = Request.Form("nombre")
direccion = Request.Form("tdireccion")
telefono = Request.form("ttelefono")
If accion = "agregar" Then
Set ConexionBD = Server.CreateObject("ADOdb.Connection")
ConexionBD.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & "DBQ=" & Server.Mappath("FASHION.mdb")
strConsultaSQL = "select max(id_clientez) as maximo from clientez"
Set RS = ConexionBD.Execute(strConsultaSQL)
If IsNull(RS("maximo")) Or RS("maximo") = 0 Then
numero = "1"
Else
numero = Cstr(RS("maximo")+1)
End If
strConsultaSQL = "Insert into clientez(id_clientez,nombre,direccion,telefono) values("+ numero +",'"+ nombre +"','"+ direccion +"','"+ telefono +"')"
ConexionBD.Execute(strConsultaSQL)
response.write(strConsultaSQL)
Response.Redirect "index.htm"
End If
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>Documento sin título</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<script language="javascript">
function valida(){
var camposValidos=" Los siguientes campos son obligatorios \n"
var errorCampos = "n";
if(document.forms[0].tnombre.value==""){
camposValidos= camposValidos + "\t Nombre \n";
errorCampos="s";
}
if(document.forms[0].tdireccion.value==""){
camposValidos= camposValidos + "\t direccion \n";
errorCampos="s";
}
if(document.forms[0].ttelefono.value==""){
camposValidos= camposValidos + "\t telefono \n";
errorCampos="s";
}
if(errorCampos=='s')
alert(camposValidos)
else{
document.forms[0].action="c_clientez.asp?accion=agregar";
document.forms[0].submit();
}
}
</script>
</head>
<body bgcolor="#333300">
<form action="c_clientez.asp" method="post" name="cliente" id="cliente">
<p> </p>
<table width="67%" border="1" align="center" bgcolor="#F5E229">
<tr align="center">
<td colspan="3"><font face="Maiandra GD">Sistema Administrativo de la Quinta
Avenida Boutique</font></td>
</tr>
<tr align="center">
<td colspan="3"><font face="Maiandra GD">Catalogo de Clientes</font></td>
</tr>
<tr>
<td colspan="3"> </td>
</tr>
<tr>
<td width="21%">Nombre </td>
<td colspan="2"><input name="tnombre" type="text" id="tnombre"></td>
</tr>
<tr>
<td>Direccion</td>
<td colspan="2"><input name="tdireccion" type="text" id="tdireccion"></td>
</tr>
<tr>
<td>Telefono</td>
<td colspan="2"><input name="ttelefono" type="text" id="ttelefono"></td>
</tr>
<tr>
<td colspan="3"> </td>
</tr>
<tr>
<td colspan="2"><input name="baceptar" type="submit" id="baceptar2" value="Aceptar" onClick="valida()"></td>
<td width="52%" align="right"><input type="reset" name="Submit2" value="Restablecer"></td>
</tr>
<tr>
<td height="65" colspan="3"> <div align="center"><img src="IMAGENES/Abajo.png" width="132" height="61"></div></td>
</tr>
</table>
<p> </p>
<%=strConsultaSQL%>
</form>
</body>
</html>
-- - ----------------------------------------------------------------------------------------------
pero ahora me muestra estos errores...
estoy pensando que podria ser el cpu .. o el sistema operativo ......
HTTP 500.100. Error interno del servidor: error de ASP
Servicios de Internet Information Server
--------------------------------------------------------------------------------
Información técnica (para personal de soporte técnico)
Tipo de error:
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][Controlador ODBC Microsoft Access]Error general No se puede abrir la clave 'Temporary (volatile) Jet DSN for process 0xf74 Thread 0xe14 DBC 0x111f584 Jet' del Registro.
/zoe_netsistem/c_clientez.asp, línea 22
ayudenme,... porfa.....
