<% @LANGUAGE = VBScript %>
<%
Option Explicit
Response.Expires=0
Dim objConn, objRS, strQ, arrRS
Dim strConnection
Dim i, strArrangement, strSvarTekst
Dim strAID, strNavn, strAdresse, strPostnr, strDistrikt, strTelefon, strEmail, strNumV, strNumB, strMedlem
Dim Mailer
If Request.ServerVariables("QUERY_STRING")<> "" then
strAID = Trim(Request.QueryString("AID"))
strNavn = Trim(Request.QueryString("Navn"))
strAdresse = Trim(Request.QueryString("Adresse"))
strPostnr = Trim(Request.QueryString("Postnr"))
strDistrikt = Trim(Request.QueryString("Distrikt"))
strTelefon = Trim(Request.QueryString("Telefon"))
strEmail = Trim(Request.QueryString("Email"))
strNumV = Trim(Request.QueryString("NumV"))
strNumB = Trim(Request.QueryString("NumB"))
strMedlem = Trim(Request.QueryString("Medlem"))
End If
%>
<!-- #include file="Includes\ConnectDB.inc" -->
<%
Sub GetArrangement
strQ = "SELECT * FROM lbArrangement WHERE AID = " & strAID
Set arrRS = objConn.Execute(strQ)
end Sub
Sub SaveTilmelding
ConnectDB
strQ = "INSERT INTO lbTilmelding (AID, Navn, Adresse, Postnr, distrikt, Telefon, Email, Medlem, NumV, NumB) VALUES "
strQ = strQ & "(" & strAID & ", '"
strQ = strQ & strNavn & "', '"
strQ = strQ & strAdresse & "', '"
strQ = strQ & strPostnr & "', '"
strQ = strQ & strDistrikt & "', '"
strQ = strQ & strTelefon & "', '"
strQ = strQ & strEmail & "', '"
strQ = strQ & strMedlem & "', '"
strQ = strQ & strNumV & "', '"
strQ = strQ & strNumB & "')"
Set objRS = objConn.Execute(strQ)
End Sub
Sub SendMail
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.RemoteHost = "mail.langeskovborgerforening.dk"
Mailer.FromName = "Langeskov borgerforening"
Mailer.FromAddress = "post@langeskovborgerforening.dk"
Mailer.AddRecipient strNavn, strEMail
Mailer.Subject = "Arrangement tilmelding"
Mailer.BodyText = strNavn & VBCRLF & strFirma & VBCRLF & strTelefon & VBCRLF & strEMail & VBCRLF & strSvarTekst
Mailer.SendMail
Response.Write Mailer.BodyTekst
End Sub
ConnectDB
GetArrangement
strArrangement = arrRS("Arrangement")
strSvarTekst = arrRS("Svar")
SaveTilmelding
'SendMail
%>
<html>
<head>
<title>Langeskovborgerforening</title>
</head>
<body bgcolor="#0099ff">
<table width="100%" height="100%" border="0">
<tr>
<td align="center" valign="top">
<!-- #include file="includes\top.inc" -->
<table width="800" cellpadding="0" cellspacing="0" bgcolor="#0099ff">
<tr>
<td width="155" align="center" valign="top"></td>
<td width="645" align="center" valign="top" height="500">
<table width="600" border="0">
<tr>
<td align="center"><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Tak for
din tilmelding til <% Response.Write strArrangement %> <br>
<br>
<% Response.Write strSvarTekst %></font></td>
</tr>
</table>
<br>
</td>
</tr>
</table>
</td>
</tr>
</table>
</body>
</html>
