<%Response.Expires = 0
Sub Stuurcode(gsm, code)
telemail = gsm & "@sms.netlogics.nl"
jmail.AddRecipient telemail
jmail.From = "volumiawebsite@netlogics.nl"
jmail.Subject = "Bedankt voor het aanmelden op de Volumia! sms-mailinglist. Om je aanmelding te activeren moet je de volgende code invoeren op www.volumia.com: " & code
jmail.Body = "smsjes"
jmail.Send( "mail.netlogics.nl" )
if jmail.ErrorCode = 0 then %>
Je bent aangemeld op de Volumia! sms mailinglijst.
De activeringscode is verzonden naar je mobiele telefoon.
Wacht tot je deze code ontvangt en vul deze binnen 1 week in op de site.
Heb je je activeringscode al ontvangen? Vul hem dan hier in.
<%
else
%>
Er is iets fout gegaan. Probeer het nog eens.Probeer het nog eens.
<%
end if
End Sub
%>
Volumia!
<%
if Request.Form("button") = "Aanmelden" then
Dim objDBUtils
Set objDBUtils = Server.CreateObject("DBUtils.clsDB")
Dim jmail
Set jmail = Server.CreateObject("JMail.Message")
jmail.Silent = true
dim gsm, email, code, datum
datum = date()
gsm = Request.Form("telefoon")
email = Request.Form("email")
mailinglist = Request.Form("checkbox")
if mailinglist = "on" then
Dim Inet
Set Inet = Server.CreateObject("http.geturl")
Dim urlget
urlget = Inet.GetURL("http://mailinglist.netlogics.nl/unatt_subscribe.asp?MailingList=volumia&SubscriberMail=" & email)
Set Inet = Nothing
end if
dim vfields
vfields = "gsm,email,datum,ok"
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
Response.Write "Je telefoonnummer komt al voor op de sms mailinglijst.
"
If rssms("ok") = False then
Stuurcode rssms("gsm"), rssms("code")
else
Response.Write "Wil je je misschien afmelden? Dan kan je dat hier doen."
end if
else
dim vvalues
vvalues = "'" & gsm & "','" & email & "','" & datum & "','0'"
If Not objDBUtils.adddata(Session("g_vConn"),"smsconfirm",vfields,vvalues,_
Request.ServerVariables("Server_Name") & Request.ServerVariables("Script_Name")) Then
End If
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
'Verstuur het smsje met de code
Stuurcode rssms("gsm"), rssms("code")
end if
set jmail = nothing
set objDBUtils = nothing
elseif Request.Form("button") = "Activeren" then
Set objDBUtils = Server.CreateObject("DBUtils.clsDB")
code = Request.Form("code")
if len(code) <> 4 then
Response.Write "Je hebt een ongeldige code ingevoerd. Probeer het nog eens."
else
vWhere = "code = '" & code & "'"
If Not objDBUtils.GetData(Session("g_vconn"), "smsconfirm", rssms, vWhere, , , , _
Request.ServerVariables("Server_Name") & Request.ServerVariables("Script_Name")) Then
Response.Write "Je hebt een ongeldige code ingevoerd. Probeer het nog eens."
End if
if rssms.Recordcount = 1 then
if Trim(rssms("email")) = Trim(Request.Form("email")) then
vWhere = "gsm = '" & rssms("gsm") & "'"
vSet = "ok = '1'"
If Not objDBUtils.UpdateData(Session("g_vConn"), "smsconfirm", vSet, vWhere , Request.ServerVariables("Server_Name") & Request.ServerVariables("Script_Name")) Then
End If
Response.Write "Activeringscode geaccepteerd.
"
Response.Write "Je staat nu ingeschreven op de sms mailinglist.
"
Response.Write "Je mobiele nummer: " & rssms("gsm")
else
Response.Write "Je activatiecode of e-mailadres is ongeldig. Probeer het nog eens."
end if
else
Response.Write "Je hebt een ongeldige code ingevoerd. Probeer het nog eens."
end if
end if
set objDBUtils = nothing
else
%>
Volumia! SMS mailinglist (aanmelden)
Hier kun je je opgeven voor de sms-mailinglist van Volumia! Als je jezelf aanmeld met je mobiele telefoonnummer, dan houdt Volumia! je op de hoogte van de allerlaatste nieuwtje.
Je krijgt per sms een activeringscode toegestuurd die je op de site moet invullen, pas daarna sta je ingeschreven.
Let op: het kan enkele minuten duren voordat je de code krijgt toegestuurd
Wil je geen nieuwtjes over Volumia! meer ontvangen? Dan kun je je hier afmelden.
Volumia! SMS mailinglist (activeren)
Heb je je activeringscode al ontvangen? Vul hem dan nu hier in:
<%
end if
%>