A ver si soy claro ....
Para poder ejecutar ASP's necesitas un SERVIDOR WEB que estè en una plataforma WINDOWS (es lo más común), El servidor WEB ya viene integrado en Windows 2000 Server, XP profesional y NT 4.0 su nombre es
IIS ( Internet Information Server y como te digo ya viene instalado en esas distribuciones de Windows.
Ya teniendo el Servidor Web (IIS) funcionado ya estas en posibilidad de ejecutar ASP's ahora lo que sigue es hacer hacer la página:
con un editor Web (front page, dream weaber, Netscape composer, etc) y si no te va ninguno de esos puedes usar el Note pad de Windows.
Suponiendo que ya tengas tu base de datos en access, para este ejemplo lo mas conveniente sería que la pusieras en el servidor web, en el directorio que se llama:
c:\InetPub\WWWRoot\
(¿por qué ahí ? pues porque es el directorio default del servidor web y tiene los permisos necesarios para ejecutar asp's)
entonces te quedara asi:
c:\InetPub\WWWRoot\
basededatos.mdb
ahora que ya tienes eso haces tu página ASP que deberá quedar algo asi:
Código HTML:
<html>
<head>
<title>mensaje.asp</title>
</head>
<body>
<% if request.Form = "" then%>
<form method="POST" action="mensaje.asp">
<p>Numero <input type="text" name="numero" size="4"></p>
<p>Codigo <input type="text" name="mensaje" size="100"></p>
<p><input type="submit" value="Enviar" name="B1"><input type="reset" value="Restablecer" name="B2"></p>
</form>
<% ELSE %>
<%
strconn = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("basededatos.mdb")
set conn = Server.Createobject("adodb.connection")
conn.open strconn
' con las lineas anteriores acabas de hacer la conexión a la base de datos que
' se encuentra en el mismo directorio que tu página
ahora a insertarlos en la base de datos:
msg = ""
if Request.Form("numero") = "" or len(Request.Form("numero")) <> 4 then
msg = " Error, Debes escribir un número de 4 dígitos "
End if
if Request.Form("mensaje") = "" len(Request.Form("mensaje")) > 100 then
msg = " Error, Debes escribir un mensaje de menos de 100 caracteres "
End if
IF msg = "" THEN
Conn.EXECUTE(" INSERT INTO tabla_mensaje (numero,mensaje) VALUES ( " &Request.Form("Numero") &", '"& Request Form("mensaje") &"')
' con esa línea has insertado el númeor y el mensaje en la tabla "tabla_mensaje" de la base de datos en access.
Reponse.Write " Se han insertado el número y el mensaje correctamente en la base de datos"
ELSE
Response.Write msg
Response.Write "<a href='javascript:history.back()'>Regresar</a>
End If
%>
</body>
</html>
ojalà te sirva
