Bekræftelsesmail
Hey kloge hovederJeg har lavet en formular, hvor kunden så skal modtage en bekræftelsesmail, når der er trykket "tilmeld".
Jeg får dog ikke noget ind med posten, så jeg må jo have gjort noget galt. Det ville være super lige at få nogle andre øjne på det, så håber der er nogen der kan hjælpe.
Min kode ser således ud:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<% Option Explicit %>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>WorkBase Jobcenter erfamøde: Tilmelding</title>
<link rel="stylesheet" media="screen" type="text/css" href="inc/style.css" />
<script type="text/javascript" src="validation.js"></script>
</head>
<body>
<!--#include file="adovbs.asp"-->
<%
Dim strChkErfamoede : strChkErfamoede = "Jeg ønsker at deltage i erfamødet onsdag den 3. september fra kl. 9.00 – 16.00 på Hotel Nyborg Strand - <b>Pris 750,-</b>"
Dim strChkOvernatning : strChkOvernatning = "Jeg ønsker også overnatning fra den 24. februar til den 25. februar - <b>Pris 825 kr. yderligere</b>"
'Dim strArbejdsomraade1 : strArbejdsomraade1 = "Sygedagpenge, revalidering"
'Dim strArbejdsomraade2 : strArbejdsomraade2 = "Kontanthjælp"
'Dim strArbejdsomraade3 : strArbejdsomraade3 = "Integration"
'Dim strArbejdsomraade4 : strArbejdsomraade4 = "Virksomhed"
'Dim strArbejdsomraade5 : strArbejdsomraade5 = "Ledere, system koordinatorer"
'Dim strArbejdsomraade6 : strArbejdsomraade6 = "Fleksjob"
'Dim strArbejdsomraade7 : strArbejdsomraade7 = "ESDH-Acadre"
'Dim strArbejdsomraade8 : strArbejdsomraade8 = "ESDH-øvrige"
Dim strWorkshopFormiddag1 : strWorkshopFormiddag1 = "Hvordan organiserer man superbrugerfunktionen?"
Dim strWorkshopFormiddag2 : strWorkshopFormiddag2 = "Middelfarts arbejdsgange i henhold til KL"
Dim strWorkshopFormiddag3 : strWorkshopFormiddag3 = "Udarbejdelse og implementering af arbejdsgangsbeskrivelser"
Dim strWorkshopFormiddag4 : strWorkshopFormiddag4 = "Ledelsesinformation i Jobcentret"
Dim strWorkshopFormiddag5 : strWorkshopFormiddag5 = "Opnå gode resultater på fleksjobsområdet med WorkBase"
Dim strWorkshopFormiddag6 : strWorkshopFormiddag6 = "Sygedagpengehåndtering i WorkBase Jobcenter"
Dim strWorkshopEftermiddag1 : strWorkshopEftermiddag1 = "Hvordan organiserer man superbrugerfunktionen?"
Dim strWorkshopEftermiddag2 : strWorkshopEftermiddag2 = "Arbejdsgange på kontanthjælpsområdet"
Dim strWorkshopEftermiddag3 : strWorkshopEftermiddag3 = "Brugen af Anden Aktør i Jobcentret"
Dim strWorkshopEftermiddag4 : strWorkshopEftermiddag4 = "Integration til ESDH"
Dim strWorkshopEftermiddag5 : strWorkshopEftermiddag5 = "Hvordan benytter ydelseskontoret WorkBase Jobcenter optimalt?"
Dim strWorkshopEftermiddag6 : strWorkshopEftermiddag6 = "Sygedagpengehåndtering i WorkBase Jobcenter"
Dim chkErfamoede : chkErfamoede = Request("chkErfamoede")
If chkErfamoede = "" Then chkErfamoede = "Nej" End If
'Dim chkOvernatning : chkOvernatning = Request("chkOvernatning")
'If chkOvernatning = "" Then chkOvernatning = "Nej" End If
Dim txtKommune : txtKommune = Request("txtKommune")
Dim txtAfdeling : txtAfdeling = Request("txtAfdeling")
Dim txtStilling : txtStilling = Request("txtStilling")
Dim txtNavn : txtNavn = Request("txtNavn")
Dim txtAdresse : txtAdresse = Request("txtAdresse")
Dim txtPostnummer : txtPostnummer = Request("txtPostnummer")
Dim txtBy : txtBy = Request("txtBy")
Dim txtTelefon : txtTelefon = Request("txtTelefon")
Dim txtEmail : txtEmail = Request("txtEmail")
Dim txtEanNummer : txtEanNummer = Request("txtEanNummer")
'Dim selArbejdsomraade : selArbejdsomraade = Request("selArbejdsomraade")
Dim selWorkshopFormiddag : selWorkshopFormiddag = Request("selWorkshopFormiddag")
Dim selWorkshopEftermiddag : selWorkshopEftermiddag = Request("selWorkshopEftermiddag")
Dim gotoEvent : gotoEvent = ""
gotoEvent = gotoEvent & "javascript : "
gotoEvent = gotoEvent & "if(document.frmTilmelding.chkErfamoede.checked != true)"
gotoEvent = gotoEvent & "{alert('Du har ikke valgt, at du vil deltage i arrangementet!'); return false;}"
gotoEvent = gotoEvent & "if(validate("
gotoEvent = gotoEvent & "'txtKommune','kommune','R',"
gotoEvent = gotoEvent & "'txtAfdeling','afdeling','R',"
gotoEvent = gotoEvent & "'txtStilling','stilling','R',"
gotoEvent = gotoEvent & "'txtNavn','navn','R',"
gotoEvent = gotoEvent & "'txtAdresse','adresse','R',"
gotoEvent = gotoEvent & "'txtPostnummer','postnummer','R',"
gotoEvent = gotoEvent & "'txtBy','by','R',"
gotoEvent = gotoEvent & "'txtTelefon','telefon','R',"
gotoEvent = gotoEvent & "'txtEmail','e-mail','R',"
gotoEvent = gotoEvent & "'txtEanNummer','ean-nummer','R',"
gotoEvent = gotoEvent & "'txtEmail','e-mail','isEmail',"
gotoEvent = gotoEvent & "'selWorkshopFormiddag','workshopformiddag','R',"
gotoEvent = gotoEvent & "'selWorkshopEftermiddag','workshopeftermiddag','R'"
gotoEvent = gotoEvent & "))"
gotoEvent = gotoEvent & "{"
gotoEvent = gotoEvent & "document.getElementById('frmTilmelding').action='default.asp?state=save';"
gotoEvent = gotoEvent & "document.getElementById('frmTilmelding').submit();"
gotoEvent = gotoEvent & "}"
%>
<form name="frmTilmelding" id="frmSubmit" method="post">
<table border="0" cellpadding="0" cellspacing="0">
<tr>
<td><img class="imgStyle" src="img/erfa.jpg" />
<td>
</tr>
</table>
<p><span class="style2">Tilmelding til WorkBase Jobcenter erfamøde mandag den 3. september </span><br/>
</p>
<br/>
<table border="0" cellpadding="0" cellspacing="0">
<tr>
<td style="width: 20px;"></td>
<td align="left" valign="top"><input type="checkbox" name="chkErfamoede" value="Ja" /> <%= strChkErfamoede %></td>
</tr>
<!--
<tr>
<td style="width: 20px;"></td>
<td><input type="checkbox" name="chkOvernatning" value="Ja" /> <%= strChkOvernatning %></td>
</tr>
!-->
</table><br /><br />
<table border="0" cellpadding="0" cellspacing="0">
<tr>
<td style="width: 20px;"></td>
<td align="left" valign="top" style="width: 135px;"><span class="blueColor">Kommune / organisation</span>: </td>
<td align="left" valign="top"><input type="text" name="txtKommune" value="<%= txtKommune %>" style="width: 250px;"><br />
<br /></td>
<td> </td>
</tr>
<tr>
<td></td>
<td align="left" valign="top"><span class="blueColor">Afdeling</span>: </td>
<td align="left" valign="top"><input type="text" name="txtAfdeling" value="<%= txtAfdeling %>" style="width: 250px;"><br />
<br /></td>
<td> </td>
</tr>
<tr>
<td></td>
<td align="left" valign="top"><span class="blueColor">Stilling</span>: </td>
<td align="left" valign="top"><input type="text" name="txtStilling" value="<%= txtStilling %>" style="width: 250px;"><br />
<br /></td>
<td> </td>
</tr>
<tr>
<td></td>
<td align="left" valign="top"><span class="blueColor">Navn</span>: </td>
<td align="left" valign="top"><input type="text" name="txtNavn" value="<%= txtNavn %>" style="width: 250px;"><br />
<br /></td>
<td> </td>
</tr>
<tr>
<td></td>
<td align="left" valign="top"><span class="blueColor">Adresse</span>: </td>
<td align="left" valign="top"><input type="text" name="txtAdresse" value="<%= txtAdresse %>" style="width: 250px;"><br />
<br /></td>
<td> </td>
</tr>
<tr>
<td></td>
<td align="left" valign="top"><span class="blueColor">Postnr og by</span>: </td>
<td align="left" valign="top">
<input type="text" name="txtPostnummer" value="<%= txtPostnummer %>" style="width: 40px;">
<input type="text" name="txtBy" value="<%= txtBy %>" style="width: 203px;"><br />
<br /> </td>
<td> </td>
</tr>
<tr>
<td></td>
<td align="left" valign="top"><span class="blueColor">Telefon</span>: </td>
<td align="left" valign="top"><input type="text" name="txtTelefon" value="<%= txtTelefon %>" style="width: 250px;"><br />
<br /></td>
<td> </td>
</tr>
<tr>
<td></td>
<td align="left" valign="top"><span class="blueColor">E-mail</span>: </td>
<td align="left" valign="top"><input type="text" name="txtEmail" value="<%= txtEmail %>" style="width: 250px;"><br />
<br /></td>
<td> </td>
</tr>
<tr>
<td></td>
<td align="left" valign="top"><span class="blueColor">EAN-nummer</span>: </td>
<td align="left" valign="top"><input type="text" name="txtEanNummer" value="<%= txtEanNummer %>" style="width: 250px;"><br />
<br /><br /></td>
<td> </td>
</tr>
<tr>
<td></td>
<td align="left" valign="top"><span class="blueColor">Workshop formiddag</span>: </td>
<td align="left" valign="top"><select name="selWorkshopFormiddag" style="width: 256px;">
<option value="">Intet valgt</option>
<option value="<%= strWorkshopFormiddag1 %>" <% If CStr(selWorkshopFormiddag) = CStr(strWorkshopFormiddag1) Then %> selected="selected" <% End If%>><%= strWorkshopFormiddag1 %></option>
<option value="<%= strWorkshopFormiddag2 %>" <% If CStr(selWorkshopFormiddag) = CStr(strWorkshopFormiddag2) Then %> selected="selected" <% End If%>><%= strWorkshopFormiddag2 %></option>
<option value="<%= strWorkshopFormiddag3 %>" <% If CStr(selWorkshopFormiddag) = CStr(strWorkshopFormiddag3) Then %> selected="selected" <% End If%>><%= strWorkshopFormiddag3 %></option>
<option value="<%= strWorkshopFormiddag4 %>" <% If CStr(selWorkshopFormiddag) = CStr(strWorkshopFormiddag4) Then %> selected="selected" <% End If%>><%= strWorkshopFormiddag4 %></option>
<option value="<%= strWorkshopFormiddag5 %>" <% If CStr(selWorkshopFormiddag) = CStr(strWorkshopFormiddag5) Then %> selected="selected" <% End If%>><%= strWorkshopFormiddag5 %></option>
<option value="<%= strWorkshopFormiddag6 %>" <% If CStr(selWorkshopFormiddag) = CStr(strWorkshopFormiddag6) Then %> selected="selected" <% End If%>><%= strWorkshopFormiddag6 %></option>
</select>
<br />
<br /> </td>
<td align="left" valign="top" class="paddingLeft">
- <a href="" onclick="window.open('workshop_formiddag.asp','mitvindue','width=500,height=450,scrollbars=yes','location=yes');return false;">Læs information om Workshop formiddag</a>
</td>
</tr>
<tr>
<td></td>
<td align="left" valign="top"><span class="blueColor">Workshop eftermiddag</span>: </td>
<td align="left" valign="top">
<select name="selWorkshopEftermiddag" style="width: 256px;">
<option value="">Intet valgt</option>
<option value="<%= strWorkshopEftermiddag1 %>" <% If CStr(selWorkshopEftermiddag) = CStr(strWorkshopEftermiddag1) Then %> selected="selected" <% End If%>><%= strWorkshopEftermiddag1 %></option>
<option value="<%= strWorkshopEftermiddag2 %>" <% If CStr(selWorkshopEftermiddag) = CStr(strWorkshopEftermiddag2) Then %> selected="selected" <% End If%>><%= strWorkshopEftermiddag2 %></option>
<option value="<%= strWorkshopEftermiddag3 %>" <% If CStr(selWorkshopEftermiddag) = CStr(strWorkshopEftermiddag3) Then %> selected="selected" <% End If%>><%= strWorkshopEftermiddag3 %></option>
<option value="<%= strWorkshopEftermiddag4 %>" <% If CStr(selWorkshopEftermiddag) = CStr(strWorkshopEftermiddag4) Then %> selected="selected" <% End If%>><%= strWorkshopEftermiddag4 %></option>
<option value="<%= strWorkshopEftermiddag5 %>" <% If CStr(selWorkshopEftermiddag) = CStr(strWorkshopEftermiddag5) Then %> selected="selected" <% End If%>><%= strWorkshopEftermiddag5 %></option>
<option value="<%= strWorkshopEftermiddag6 %>" <% If CStr(selWorkshopEftermiddag) = CStr(strWorkshopEftermiddag6) Then %> selected="selected" <% End If%>><%= strWorkshopEftermiddag6 %></option>
</select>
<br />
<br /> </td>
<td align="left" valign="top" class="paddingLeft">
- <a href="" onclick="window.open('workshop_eftermiddag.asp','mitvindue','width=500,height=450,scrollbars=yes','location=yes');return false;">Læs information om Workshop eftermiddag</a>
</td>
</tr>
<!--
<tr>
<td></td>
<td valign="top"><span class="blueColor">Du valgte:</span>: </td>
<td>
</td>
</tr>
!-->
<tr>
<td></td>
<td> </td>
<td></td>
<td></td>
</tr>
<tr>
<td></td>
<td align="left" valign="top"><input type="button" value="Tilmeld" style="width: 100px; cursor: pointer;" onclick="<%= gotoEvent %>"></td>
<td></td>
<td></td>
</tr>
</table>
</form>
<%
If Request("state") = "save" Then
Dim conn : Set conn = Server.CreateObject("ADODB.Connection")
conn.Provider = "Microsoft.Jet.OLEDB.4.0"
conn.Open Server.MapPath("db.mdb")
Dim rs : Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "[Tilmelding]", conn, adOpenKeySet, adLockOptimistic, adCmdTable
rs.AddNew
rs("Erfamoede") = chkErfamoede
'rs("Overnatning") = chkOvernatning
rs("Kommune") = txtKommune
rs("Afdeling") = txtAfdeling
rs("Stilling") = txtStilling
rs("Navn") = txtNavn
rs("Adresse") = txtAdresse
rs("Postnummer") = txtPostnummer
rs("By") = txtBy
rs("Telefon") = txtTelefon
rs("Email") = txtEmail
rs("EanNummer") = txtEanNummer
'rs("Arbejdsomraade") = selArbejdsomraade
rs("WorkshopFormiddag") = selWorkshopFormiddag
rs("WorkshopEftermiddag") = selWorkshopEftermiddag
rs.Update
rs.Close
Set rs = Nothing
Conn.Close()
Set Conn = Nothing
Dim strJS : strJS = ""
strJS = strJS & "<script>"
strJS = strJS & "alert('Tak for din tilmelding. Vi har nu registeret dig i systemet.');"
strJS = strJS & "window.location = 'default.asp';"
strJS = strJS & "</script>"
Response.Write(strJS)
'Response.Addheader "REFRESH", "2;URL="
'Response.Redirect("http://medialogic.dk/")
Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.ServerAddress = "websmtp.medialogic.dk"
JMail.Sender = "mab@medialogic.dk"
JMail.Subject = "Tilmelding"
JMail.AddRecipient "mab@medialogic.dk", Request.Form("txtEmail")
JMail.Priority = 3
JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR")
' Her starter selve email-en
JMail.Body = "Du er nu tilmeldt erfamødet" & vbCrLf &_
"Og her kommer linie 2"
' Her slutter selve email-en
JMail.Execute
Set JMail = Nothing
End If
%>
</body>
</html>
