Mi idea es que cuando alguien se descargue un programa de mi pagina web, almacenar sus datos en una BD. los codigos de las paginas son:
<%
Option Explicit
Dim programa
programa = Request.QueryString("p")
%>
<html>
<head>
<title>Pre descarga de:<%= programa %></title>
</head>
<body bgcolor="#000088" text="#00ffff">
<h1>Archivo a descargar:<tt><font color="gold"><%= programa%></font></tt><br>
</h1>
Por favor, seria recomendable que nos facilitara los siguientes datos, con el fin de realizar modificaciones que faciliten sus descargas. TODOS los datos que nos facilite seran tratados confidencialmente. Usted, como propietario de estos datos, puede decidir borrarlos y/o modificarlos poniendose en contacto con el webmaster de esta pagina:
[email protected]<br>
<form action="entrega.asp" method="post">
Nombre: <input type="text" name="nombre"><br>
E-mail: <input type="text" name="mail"><br>
<input type="hidden" name="programa" value="<%= programa%>">
<input type="submit" value="continuar>>>">
</form>
</body>
</html>
y
<%
Option Explicit
Dim nombre
Dim mail
Dim programa
Dim oConn
Dim oRS
Dim sSQL
Dim uno
uno = DateAdd("H", 7, Now())
nombre = Request.Form("nombre")
mail = Request.Form("mail")
programa = Request.Form("programa")
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("\javier1287\db\user.mdb" ))
sSQL = "INSERT INTO Datosii(Programa, Fecha, Usuario, email) VALUES ("
sSQL = sSQL & " ' " & programa & " ',"
sSQL = sSQL & " ' " & uno & " ',"
sSQL = sSQL & " ' " & nombre & " ',"
sSQL = sSQL & " ' " & mail & "')"
Set oRS = oConn.Execute(sSQL)
%>
<html>
<%= mail%>
<%= programa%>
<%= nombre%>
</html>
<%
oConn.Close
'Set oRS = Nothing
Set oConn = Nothing
%>
Pero me da un error interno del servidor.
Que pasa?