Originariamente inviato da spider81man
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>NEWSLETTER</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body bgcolor="#000000">
<table width=230 height=313 border="0">
<tr>
<td>
<form name="form1" method="post" action="pagina2.asp">
<center><input type="text" name="email" size="33"></center>
<center><input type="submit" name="Submit" value="Invia"></center>
</form>
</tr>
</table>
</body>
</html>
pagina2:
<html>
<%
dim email
email=Request("email")
Response.Write(Server.MapPath("newsletters.mdb"))
Response.End
Set ConnMDB= Server.CreateObject("ADODB.Connection")
ConnMDB.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath("newsletters.mdb")
sql = "insert into mail(mail) values ('" & email & "')"
ConnMDB.execute(sql)
%>
<body bgcolor="#000000" text="#FFFF00">
<table width=230 height=313 border="0">
<tr>
<td>
Grazie per esserti iscritto alla nostra Newsletter.
</tr>
</table>
</body>
</html>
Rispondi quotando
