<%Response.Expires = 0
Sub Stuurcode(gsm, code)
telemail = gsm & "@sms.netlogics.nl"
jmail.AddRecipient telemail
jmail.From = "volumiawebsite@netlogics.nl"
jmail.Subject = "Om jezelf af te melden van de volumia mailinglist moet je de volgende code gebruiken: " & code
jmail.Body = "smsjes"
jmail.Send( "mail.netlogics.nl" )
if jmail.ErrorCode = 0 then %>
Je activeringscode is verzonden naar je mobiele telefoon.
Wacht tot je deze code ontvangt en vul deze op de site in om jezelf af te melden.
Heb je je activeringscode al ontvangen? Vul hem dan hier in:
<%
else
%>
Er is iets fout gegaan. Probeer het nog eens.
<%
end if
End Sub
%>
Volumia!
<%
Dim objDBUtils
Set objDBUtils = Server.CreateObject("DBUtils.clsDB")
Dim jmail
Set jmail = Server.CreateObject("JMail.Message")
jmail.Silent = true
if Request.Form("button") = "Afmelden" then
dim gsm, code
gsm = Request.Form("telefoon")
code = Request.Form("code")
dim vWhere
vWhere = "gsm = '" & gsm & "'"
If Not objDBUtils.GetData(Session("g_vconn"), "smsconfirm", rssms, vWhere, , , , _
Request.ServerVariables("Server_Name") & Request.ServerVariables("Script_Name")) Then
'Something went wrong retrieving the data
End if
if rssms.recordcount = 1 then
if Trim(rssms("code")) = CStr(code) then
if rssms("ok") = 1 then
vWhere = "code = '" & rssms("code") & "'"
vSet = "ok = '0'"
If Not objDBUtils.UpdateData(Session("g_vConn"), "smsconfirm", vSet, vWhere , Request.ServerVariables("Server_Name") & Request.ServerVariables("Script_Name")) Then
Response.Write "Er is iets mis gegaan met het afmelden bij de mailinglist."
Response.Write "Probeer het nog eens."
Else
Response.Write "We hebben je nu verwijderd van de sms-mailinglist."
telemail = gsm & "@sms.netlogics.nl"
jmail.AddRecipient telemail
jmail.From = "volumiawebsite@netlogics.nl"
jmail.Subject = "Je hebt jezelf afgemeld van de Volumia! sms-mailinglist, als je wilt kun je je weer aanmelden met code: " & code
jmail.Body = "smsjes"
jmail.Send( "mail.netlogics.nl" )
End if
else
Response.Write "Je bent al afgemeld bij de mailinglist.
"
Response.Write "Met je code kun je je opnieuw aanmelden."
end if
else
Response.Write "Je code voor " & gsm & " is niet correct.
"
Response.Write "Probeer het nog eens."
end if
else
Response.Write "Je komt niet voor op onze mailinglist. Miscchien heb je je code op e-mailadres verkeerd ingevuld?
"
Response.Write "Probeer het nog eens."
end if
elseif Request.Form("button") = "Verzenden" then
telefoon = Request.Form("telefoon")
vWhere = "gsm = '" & telefoon & "'"
If Not objDBUtils.GetData(Session("g_vconn"), "smsconfirm", rssms, vWhere, , , , _
Request.ServerVariables("Server_Name") & Request.ServerVariables("Script_Name")) Then
Response.Write "Er is iets verkeerd gegaan. Probeer het nog eens."
End if
if rssms.Recordcount = 1 then
Stuurcode telefoon, rssms("code")
else
Response.Write "Je hebt een onbekend telefoonnummer ingevoerd. Probeer het nog eens."
end if
set jmail = nothing
set objDBUtils = nothing
else
%>
Volumia! SMS mailinglist (afmelden)
Wil je geen nieuwtjes over Volumia! meer ontvangen?
Dan kun je je hier afmelden voor de sms-mailinglist van Volumia!
Om je af te melden moet je hier je activeringscode en je telefoonnummer ingeven:
Activeringscode vergeten?
Ben je je activeringscode vergeten? Vul dan hier je mobiele telefoonnummer in dan sturen we je de code toe.
<%
end if
%>