<%
who = Request.QueryString("who")
submitted = Request.Form("submitted")
function WriteToFile(FileName, Contents, Append)
on error resume next
if Append = true then
iMode = 8
else
iMode = 2
end if
set oFs = server.createobject("Scripting.FileSystemObject")
set oTextFile = oFs.OpenTextFile(FileName, iMode, True)
oTextFile.Write Contents
oTextFile.Close
set oTextFile = nothing
set oFS = nothing
end function
IF submitted = "yes" THEN
fname = Request.Form("fname")
lname = Request.Form("lname")
postitle = Request.Form("postitle")
company = Request.Form("company")
email = Request.Form("email")
country = Request.Form("country")
addr1 = Request.Form("addr1")
addr2 = Request.Form("addr2")
city = Request.Form("city")
mystate = Request.Form("state")
zip = Request.Form("zip")
phone = Request.Form("phone")
comments = Request.Form("comments")
sub1 = Request.Form("sub1")
sub2 = Request.Form("sub2")
sub3 = Request.Form("sub3")
sub4 = Request.Form("sub4")
sub5 = Request.Form("sub5")
sub6 = Request.Form("sub6")
sub7 = Request.Form("sub7")
sub8 = Request.Form("sub8")
sub9 = Request.Form("sub9")
sub10 = Request.Form("sub10")
sub11 = Request.Form("sub11")
sub12 = Request.Form("sub12")
sub13 = Request.Form("sub13")
sub14 = Request.Form("sub14")
sub15 = Request.Form("sub15")
'send mail
mailbody = fname & " " & lname & " has subscribed to:" & sub1 & " " & sub2 & " " & sub3 & " " & sub4 & " " & sub5 & " " & sub6 & " " & sub7 &" "& sub8 &" "& sub9 &" "& sub10 &" "& sub11 &" "& sub12 &" "& sub13 &" "& sub14 &" " & sub15 &" " & chr(13)
mailbody = mailbody & "Contact information:" & chr(13)
mailbody = mailbody & fname & " " & lname & chr(13)
mailbody = mailbody & postitle & ", " & company & chr(13)
mailbody = mailbody & addr1 & chr(13)
mailbody = mailbody & addr2 & chr(13)
mailbody = mailbody & city & ", " & mystate & " " & zip & chr(13)
mailbody = mailbody & country & chr(13) & chr(13)
mailbody = mailbody & phone & chr(13)
mailbody = mailbody & "comments:" & comments & chr(13)
subject = "Subscription from :" & fname & " " & lname
on error resume next
Set Mail = CreateObject("CDONTS.Newmail")
Mail.From = email
Mail.To = "info@oliverwyman.com"
Mail.Subject = subject
Mail.Body = mailbody
Mail.Send
Set Mail = Nothing
'Enter details into database
Dim adoCon
Dim strRS
Dim strSQL
Set adoCon = Server.CreateObject("ADODB.Connection")
adoCon.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("subs.mdb")
strSQL = "insert into subs (fname, lname, postitle, company, email, country, addr1, addr2, city, mystate, zip, phone, sub1, sub2, sub3, sub4, sub5, sub6, sub7, sub8, sub9, sub10, sub11, sub12, sub13, sub14, sub15)" & "values('" & fname & "', '" & lname & "', '" & postitle & "', '" & company & "', '" & email & "', '" & country & "', '" & addr1 & "', '" & addr2 & "', '" & city & "', '" & mystate & "' , '" & zip & "', '" & phone & "', '" & sub1 & "', '" &sub2 & "', '" & sub3 & "', '" &sub4 & "', '" &sub5 & "', '" &sub6 & "', '" &sub7 & "', '" &sub8 & "', '" &sub9 & "', '" &sub10 & "', '" &sub11 & "', '" &sub12 & "', '" &sub13 & "', '" &sub14 & "', '" &sub15 & "')"
adoCon.execute strSQL
strRS.Close
Set strRS = Nothing
Set adoCon = Nothing
WriteToFile "C:\Inetpub\wwwroot\ow\temp\log.txt", chr(13) &"subscriptions " & fname & " ," & lname & " ," & email & " ," & sub1 & " " & sub2 & " " & sub3 & " " & sub4 & " " & sub5 & " " & sub6 & " " & sub7 &" "& sub8 &" "& sub9 &" "& sub10 &" "& sub11 &" "& sub12 &" "& sub13 &" "& sub14 &" " & sub15 &" " , True
%>
<%Lang = ""
If Lang = "German" Then%>
Vielen Dank, wir haben Sie auf den Verteiler zum Thema: <%= sub1 %> <%=sub2%> <%=sub3%> <%=sub4%> <%=sub5%> <%=sub6%> <%=sub7%> <%=sub8%> <%=sub9%> <%=sub10%> <%=sub11%> <%=sub12%> <%=sub13%> <%=sub14%> <%=sub15%> aufgenommen.
<% Else %>
Your Subscription for: <%= sub1 %> <%=sub2%> <%=sub3%> <%=sub4%> <%=sub5%> <%=sub6%> <%=sub7%> <%=sub8%> <%=sub9%> <%=sub10%> <%=sub11%> <%=sub12%> <%=sub13%> <%=sub14%> <%=sub15%> has been received.
<% End If%>
<% else %>
<% Lang = ""
If Lang = "German" Then%>
Abonnements
!
<% Response.Write Server.HTMLEncode("Bitte markieren Sie die Themen, zu denen Sie regelmäßig Informationen erhalten wollen:")%>
Bitte markieren Sie mindestens ein Feld.
Fragen? Schicken Sie uns eine E-Mail!
<% Response.Write Server.HTMLEncode("Ihre Daten werden vertraulich behandelt und nur zu den angegebenen Zwecken verwendet. Er erfolgt keine Weitergabe an Dritte. Die statistische Auswertung anonymisierter Datensätze bleibt vorbehalten. Mit dem Absenden des Formulars willigen Sie in unsere:")%> Datenschutzbestimmungen <% Response.Write Server.HTMLEncode("ein.")%>
<% ElseIf Lang = "ChineseS" Then%>
订阅表
Please correct the errors indicated below.
订阅:
Please check at least one box.
如有疑问请致邮我们。.
声明：任何通过订阅收到的资料均应遵守我公司的可接受使用政策，我方保留决定订阅人的所有权利以及未经事先警告或不提供任何理由即可终止任何订阅的权利。由本网站所提供的任何数据必须遵守公司的政策。
<% Else %>
Subscriptions
Please correct the errors indicated below.
Subscribe to:
Please check at least one box.
Problems subscribing? Email us.
Disclaimer: Any materials received via a subscription are subject to our acceptable use policy, and we reserve the right to decide who gets to subscribe, and reserve the right to terminate any subscription without warning or reason, and that any data supplied will be subject to our privacy policy.
<%
End If
%>
<%End IF%>
