Her er filen din form skal sende til :
'-- START : Indsaet.asp
<% OPTION EXPLICIT %>
<%
'---- START (Her indsætter den i DB'en)
Sub Indsaet
Dim StrSQL, Rs, Conn
'Open connection to DB
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=D:\sti\til\db.mdb"
StrSQL="INSERT INTO Tabel (Brugernavn,Kodeord,RigtigtNavn,Adresse,Postnr,Bynavn,IndmeldDato) VALUES ("
StrSQL=StrSQL & "'" & Request.Form("Brugernavn") & "',"
StrSQL=StrSQL & "'" & Request.Form("Kodeord") & "',"
StrSQL=StrSQL & "'" & Request.Form("RigtigtNavn") & "',"
StrSQL=StrSQL & "'" & Request.Form("Adresse") & "',"
StrSQL=StrSQL & "'" & Request.Form("Postnr") & "',"
StrSQL=StrSQL & "'" & Request.Form("Bynavn") & "',"
StrSQL=StrSQL & "#" & Now() & "#)"
Set Rs=Conn.Execute(StrSQL)
Conn.Close
Set Conn=Nothing
End Sub
'---- SLUT (Her indsætter den i DB'en)
'---- START (Her sender den email)
Sub SendMail
Dim TilNavn, TilEmail, Msg3
TilNavn="Webmaster"
TilEmail="webmaster@siden.dk"
'Open connection JMail
Set Msg3 = Server.CreateObject("Jmail.Message")
Msg3.Clear
Msg3.Logging = true
Msg3.Silent = true
Msg3.From = "hjemme@side.dk" ' strSender
Msg3.FromName = "Hjemmesiden" ' strFromName
Msg3.AddRecipient TilEmail, TilNavn
Msg3.Subject = "Ny registrering på siden.dk"
Msg3.HTMLBody = "<html><body>"
Msg3.AppendHTML ("Hej Webmaster..<BR><BR>")
Msg3.AppendHTML ("Der er en ny bruger, der har tilmeldt sig hjemmesiden<BR>")
Msg3.AppendHTML ("Personen har indtastet følgende oplysninger :<BR>")
Msg3.AppendHTML ("<table>")
Msg3.AppendHTML ("<TR><TD>Brugernavn :<TD>" & Request.Form("Brugernavn"))
Msg3.AppendHTML ("<TR><TD>Navn:<TD>" & Request.Form("RigtigtNavn"))
Msg3.AppendHTML ("<TR><TD>Adresse:<TD>" & Mail_Rs("Adresse"))
Msg3.AppendHTML ("<TR><TD>Postnr & by :<TD>" & Request.Form("Postnr") & " " & Request.Form("Bynavn"))
Msg3.AppendHTML ("</table><BR><BR>")
Msg3.AppendHTML ("Med venlig hilsen<BR>")
Msg3.AppendHTML ("<pre>")
Msg3.AppendHTML ("Hjemmesiden<BR>")
Msg3.AppendHTML ("</pre>")
Msg3.AppendHTML ("</body></html>")
on error resume next '## Ignore Errors
If NOT Msg3.Send("mail3.cliche.dk") then
Response.Write("<li>Din anmodning blev ikke sendt pga. følgende fejl: " & Err.Description & "</li>")
Response.End
End if
End Sub
'---- SLUT (Her sender den email)
Indsaet
SendMail
Response.Redirect("Visbrugere.asp")
%>
'-- SLUT : Indsaet.asp
'-- START : Visbrugere.asp
<% OPTION EXPLICIT %>
<%
'---- START (Her indsætter den i DB'en)
Sub VisBrugere
Dim StrSQL, Rs, Conn
'Open connection to DB
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=D:\sti\til\db.mdb"
StrSQL="SELECT * FROM Tabel ORDER BY IndmeldDato DESC"
Set Rs=Conn.Execute(StrSQL)
Response.Write("<table><TR><TD>Brugernavn</TD><TD>Dato</TD></TR>")
Do WHILE NOT Rs.BOF AND NOT Rs.EOF
Response.Write("<TR>")
Response.Write("<TD>" & Rs("Brugernavn") & "</TD>")
Response.Write("<TD>" & Rs("IndmeldDato") & "</TD>")
Response.Write("</TR>")
Rs.MoveNext
Loop
Response.Write("</table>")
Conn.Close
Set Conn=Nothing
End Sub
'---- SLUT (Her indsætter den i DB'en)
VisBrugere
%>
'-- SLUT : Visbrugere.asp
Husk at ændre stien til DB'en og diverse feltnavne :-)
