Her link til formularen
http://www.amager-motocrossklub.dk/medlemsdatabase/indmelding_test_mail.aspog her koderne på add_to_database_mail.asp
Jeg får stadigvæk ingen mail men indtastningerne i formularen ryger godt nok ind i databasen.
<% @ Language="VBScript" %>
<% Option Explicit %>
<head>
<title>AMcK indmeldingsformular til database</title>
</head>
<body>
<%
'declare your variables
Dim name, efternavn, adresse, postnr, bynavn, email, telefonnr, mobilnr, tlfnavn, kommune, foedt, klasse, licens, klub, arbudvalg, klubbet, kommentar
Dim sConnString, connection, sSQL
' Receiving values from Form, assign the values entered to variables
name = Request.Form("name")
efternavn = Request.Form("efternavn")
adresse = Request.Form("adresse")
postnr = Request.Form("postnr")
bynavn = Request.Form("bynavn")
email = Request.Form("email")
telefonnr = Request.Form("telefonnr")
mobilnr = Request.Form("mobilnr")
tlfnavn = Request.Form("tlfnavn")
kommune = Request.Form("kommune")
foedt = Request.Form("foedt")
klasse = Request.Form("klasse")
licens = Request.Form("licens")
klub = Request.Form("klub")
arbudvalg = Request.Form("arbudvalg")
klubbet = Request.Form("klubbet")
kommentar =Request.Form("kommentar")
'declare SQL statement that will query the database
sSQL = "INSERT into users_tbl (name, efternavn, adresse, postnr, bynavn, email, telefonnr, mobilnr, tlfnavn, kommune, foedt, klasse, licens, klub, arbudvalg, klubbet, kommentar) values ('" & _
name & "', '" & efternavn & "', '" & adresse & "', '" & postnr & "', '" & bynavn & "', '" & email & "', '" & telefonnr & "', '" & mobilnr & "', '" & tlfnavn & "', '" & kommune & "', '" & foedt & "', '" & klasse & "', '" & licens & "', '" & klub & "', '" & arbudvalg & "', '" & klubbet & "', '" & kommentar & "')"
'define the connection string, specify database
'driver and the location of database
sConnString="PROVIDER=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & Server.MapPath("Users.mdb")
'create an ADO connection object
Set connection = Server.CreateObject("ADODB.Connection")
'Open the connection to the database
connection.Open(sConnString)
'execute the SQL
connection.execute(sSQL)
' data til email
Dim mailserver, mailmodtager, mailafsender
mailserver = "asmtp.unoeuro.com"
mailmodtager = "jane.kneis@amager-motocrossklub.dk"
mailafsender = "jane.kneis@amager-motocrossklub.dk"
Set jmail = Server.CreateObject("JMail.Message")
jmail.AddRecipient ""& mailmodtager &"", ""& mailmodtager &""
jmail.From = "" & mailafsender & ""
jmail.Subject = "Indmelding via webside"
jmail.appendHTML "<style>"
jmail.appendHTML "body, td{"
jmail.appendHTML "COLOR: #000000;"
jmail.appendHTML "background: #FFFFFF;"
jmail.appendHTML "font-family: Verdana, sans-serif;"
jmail.appendHTML "font-size: 10px;}"
jmail.appendHTML "</style>"
jmail.appendHTML "<table border=""0"" cellpadding=""2"" cellspacing=""2"">"
jmail.appendHTML "<tr><td><b>Navn:</b></td>"
jmail.appendHTML "<td>" & name & "</td><td>" & efternavn & "</td></tr>"
jmail.appendHTML "<tr><td><b>Adresse:</b></td>"
jmail.appendHTML "<td colspan=""2"">" & adresse & "</td></tr>"
jmail.appendHTML "<tr><td> </td>"
jmail.appendHTML "<td>" & postnr & "</td><td>" & bynavn & "</td></tr>"
jmail.appendHTML "<tr><td><b>Email:</b></td>"
jmail.appendHTML "<td colspan=""2"">" & email & "</td></tr>"
jmail.appendHTML "<tr><td><b>Telefon:</b></td>"
jmail.appendHTML "<td colspan=""2"">" & telefonnr & "</td></tr>"
jmail.appendHTML "<tr><td><b>Mobil:</b></td>"
jmail.appendHTML "<td colspan=""2"">" & mobilnr & "</td></tr>"
jmail.appendHTML "<tr><td><b>Tlfnavn:</b></td>"
jmail.appendHTML "<td colspan=""2"">" & tlfnavn & "</td></tr>"
jmail.appendHTML "<tr><td><b>Kommune:</b></td>"
jmail.appendHTML "<td colspan=""2"">" & kommune & "</td></tr>"
jmail.appendHTML "<tr><td><b>Fødselsdato:</b></td>"
jmail.appendHTML "<td colspan=""2"">" & foedt & "</td></tr>"
jmail.appendHTML "<tr><td><b>Klasse:</b></td>"
jmail.appendHTML "<td colspan=""2"">" & klasse & "</td></tr>"
jmail.appendHTML "<tr><td><b>Klasse:</b></td>"
jmail.appendHTML "<td colspan=""2"">" & klasse & "</td></tr>"
jmail.appendHTML "<tr><td><b>Licens:</b></td>"
jmail.appendHTML "<td colspan=""2"">" & licens & "</td></tr>"
jmail.appendHTML "<tr><td><b>Klub:</b></td>"
jmail.appendHTML "<td colspan=""2"">" & klub & "</td></tr>"
jmail.appendHTML "<tr><td><b>Arbudvalg:</b></td>"
jmail.appendHTML "<td colspan=""2"">" & arbudvalg & "</td></tr>"
jmail.appendHTML "<tr><td><b>Klubbet:</b></td>"
jmail.appendHTML "<td colspan=""2"">" & klubbet & "</td></tr>"
jmail.appendHTML "<tr><td><b>Kommentar:</b></td>"
jmail.appendHTML "<td colspan=""2"">" & comments & "</td></tr>"
jmail.appendHTML "<tr><td><b>Dato:</b></td><td colspan=""2"">" & Now() & "</td></tr></table>"
jmail.Send(mailserver)
response.write "Tak for din indmelding, du vil inden for 2 dage modtage en velkomstmail."
' Done. Close the connection object
connection.Close
Set connection = Nothing
%>
</body>