<%
if (Request.Form("PROCESS_GCSENDMAIL") <> "") then
set mailer = Server.CreateObject("GCSmtp.GCSmtp.1")
'Hieronder komt automatisch mail.uwdomein te staan.
'Dit is de default mailserver van uw domein.
'Als u naar een ander domein wil mailen (mailer.To) vul dan
'hieronder de SMTPServer in die dat domein afhandeld.
mailer.SMTPServer = Replace(Request.ServerVariables("Server_Name"),"www.", "mail.")
mailer.From = Request.Form("mlheader_from")
mailer.FromName = "RVK Website"
'De mail moet naar een adres binnen uw domein worden gestuurd. Als u een ander
'domein invult moet u bij mailser.SMTPServer de mailserver van dat domein invullen.
mailer.To = Request.Form("mlto")
mailer.ToName = ""
mailer.Subject = Request.Form("mlheader_subject")
body_text = "Ik wil graag meer informatie, dit zijn mijn gegevens:"
body = Request.Form("mltemplate")
bArray = split(body, vbCrLf, -1, 1)
for each regel in bArray
if (InStr(regel, "@{") = 0) then
body_text = body_text & " " & regel & vbCrLf
else
do while (InStr(regel, "@{") <> 0)
waarde = Mid(regel, InStr(regel, "@{"), InStr(regel,"}@") - InStr(regel, "@{") + 2)
uriwaarde = Replace(waarde, "@{", "")
uriwaarde = Replace(uriwaarde, "}@", "")
if (InStr(uriwaarde, "HTTP_") = 0) AND (InStr(uriwaarde, "REMOTE_") = 0) then
nieuw = Replace(regel, waarde,Request.Form(uriwaarde),1,1)
else
nieuw = Replace(regel, waarde,Request.ServerVariables(uriwaarde),1,1)
end if
regel = nieuw
loop
body_text = body_text & nieuw&vbCrLf
end if
next
mailer.Message = body_text
mailer.SendMessage
Response.write("")
Response.End
end if
%>
Risselada & Van Kuijzen
