Du kan gøre det på denne måde:
Hvis John Doe taster sine oplysninger ind i en form, som du herefter fylder i en database. Husk at lave et emne (Katte, marsvin..)som også lægges i databasen
Så laver du en side med en form som hælder oplysninger i en database som bruges til indholdet på siden. Og når du så klikker på knappen i send bliver oplysningerne både lagt i databasen og sendt til brugeren. Brugeren navn email og hvilke kategori han abonnerer på hentes fra databasen.
Her er et eksempel:
<%
overskrift = request("overskrift")
besked = request("besked")
if Request.ServerVariables("REQUEST_METHOD") = "POST" then
response.write " Følgende har fået tilsendt nyhedsbrevet<br><br><br> "
'her skrives indholdet til databasen
Const adOpenKeyset = 1
Const adLockOptimistic = 3
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("../../db/db.mdb")
Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "Select * From dagbog"
rs.Open strSQL, Conn, adOpenKeyset, adLockOptimistic
rs.AddNew
rs("overskrift") = Request.form("overskrift")
rs("Besked") = Request.form("Besked")
rs.Update
rs.Close
Set rs = Nothing
Conn.Close
set Conn = Nothing
'her åbnes til login databasen
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("../../db/db.mdb")
SQLstmt = "SELECT * FROM login ORDER BY ID desc;"
Conn.Execute (SQLstmt)
Set rs = conn.Execute(SQLstmt)
'looper resultatet
DO WHILE NOT rs.EOF
ID = rs("ID")
navn = rs("navn")
email = rs("email")
on error resume next
'her starter jmail indholdet sendes via email
Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.ContentTransferEncoding = "8bit"
JMail.Charset = "ISO-8859-1"
JMail.Priority = 1
JMail.ServerAddress = "smtp.integra2ren.dk"
JMail.Sender = "dorthe@integra2ren.dk"
JMail.Subject = "Dorthes Dagbog"
JMail.Body = "bla bla bla" & vbCrLf & vbCrLf &"xxxxx har skrevet:" & vbCrLf & vbCrLf & vbCrLf & overskrift & vbCrLf & vbCrLf & besked & "....." & vbCrLf & vbCrLf & vbCrLf
JMail.Body= JMail.Body + "klik ind på
www.integra2ren.dk/dorthe og læs resten" & vbCrLf & vbCrLf
JMail.Body= JMail.Body + "-------------------------------------------------------------------" & vbCrLf
JMail.Body= JMail.Body + "Her kan du læse om hvordan hverdagen er i xxxxxx og du kan se billeder af forskellige kendte steder i byen" & vbCrLf & "Der er også mulighed for at DU kan påvirke siden. " & vbCrLf & "Skriv en hilsen eller et spørgsmål til Dorthe eller kommentér en af de andre brugeres indlæg på siden" & vbCrLf & vbCrLf
JMail.Body= JMail.Body + "Hvis du vil skrive direkte til Dorthe kan du gøre det på dorthe-d-jensen@ofir.dk" & vbCrLf
JMail.Body= JMail.Body + "-------------------------------------------------------------------" & vbCrLf
JMail.Body= JMail.Body + "xxxxx er lavet af Thomas Jensen " & vbCrLf & vbCrLf & "Hvis du har ris eller ros kan du skrive til: "
JMail.AddRecipient email
' Send it...
JMail.Execute
set JMail = nothing
response.redirect("email.asp")
'lukker databasen
rs.MoveNext
LOOP
RS.Close
conn.Close
Set conn = nothing
Set SQLstmt = nothing
'her kommer selve html-siden som du selv kan lave som du vil husk Formen til at fylde indhold i databasen
else %>
<!--#include file = "../incl/setup.asp"-->
<html>
<head><title></title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link rel="stylesheet" href="../incl/style.css" type="text/css">
</head>
<body bgcolor="#FFFFFF" text="#000000">
<TABLE height="100%" cellSpacing=0 cellPadding=0 width="100%" align=center border=0>
<TBODY>
<TR>
<TD vAlign=top align=middle>
<TABLE cellSpacing=0 cellPadding=0 border=0>
<TBODY>
<TR>
<TD bgcolor="#FFFFFF"><a href="
http://www.INTEGRA2REN.DK/ (...) height=39 alt="" src="../grafik/images/admin/logo1.jpg" width=121 border=0></a></TD>
<TD background="../grafik/images/admin/top.jpg" width="479">
<%=adminmenu%>
</TD>
</TR>
<TR>
<TD colSpan=2><img src="../grafik/images/admin/dagbog_top.jpg" width="600" height="77" border="0"></TD>
</TR
<TR>
<TD colSpan=2>
<form method="POST" class="css" action="form.asp">
<center><br>
<table border="0" width="400">
<tr>
<td align="right">Overskrift: </td>
<td ><input ID="FORM" type="text" name="overskrift" size="35"></td>
</tr>
<tr>
<td Valign="top" align="right">Emne: </td>
<td><textarea ID="FORM" wrap="virtual" name="Besked" cols="45" rows="8"></textarea></td>
</tr>
<tr>
<td Valign="middle" align="center" colspan="2"><br><input ID="small_submit" type="submit" value="Gem"></td>
</tr>
</table>
</center>
</form>
</TD>
</TR>
<TR>
<TD colSpan=2><IMG height=19 alt="" src="../grafik/images/admin/bund_bar.jpg" width=600 border=0></TD>
</TR>
<TR>
<TD colSpan=2><A href="
http://www.INTEGRA2REN.DK" target=_self><IMG height=20 alt="" src="../grafik/images/admin/copy.jpg" width=79 border=0> </A></TD>
</TR>
</TBODY>
</TABLE>
</TD>
</TR>
</TBODY>
</TABLE>
</body>
</html>
<%end if%>
