<% If Request.QueryString("what") = "" Then %>
Jag håller dig uppdaterad
|
Jag kommer succesivt att komplettera denna
sajt med mer matnyttig information för din privatekonomi.
Anmäl dig här, så håller
jag dig uppdaterad:
Genom att skicka denna anmälan så godänner du mail från denna
sajt om privatekonomi
|
Avregistrera dig från mina uppdateringar
|
| Här avanmäler du dig från mina uppdateringar
|
| |
<% End if %>
<% '===================================================================================================================== %>
<% ' Formulärskod för ny prenumeration %>
<% '===================================================================================================================== %>
<% If Request.QueryString("what") = "Subscribe" Then %>
Din prenumeration är anmäld
Du kommer att få en bekräftelse skickad till: <%=epost%>
<% End If %>
<% '===================================================================================================================== %>
<% ' Formulärskod för ny att slutföra en prenumeration %>
<% '===================================================================================================================== %>
<% If Request.QueryString("what") = "Unsubscribe" Then %>
<% Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "sgg"
Set RecSet = Server.CreateObject("ADODB.Recordset")
Texter = "SELECT * FROM subscribers WHERE email = '" & Request.Form("Email") & "' "
RecSet.Open Texter, Connect, adOpenStatic, adLockOptimistic
RecSet.Delete
RecSet.Close %>
Din prenumeration är avslutad
Du kommer att få en bekräftelse skickad till: <%=epost%>
<% End If %>
<% '===================================================================================================================== %>
Nästa: 1.1 - Flöde och
kontroll
|
Vem är jag då?
Jo jag är en drygt 40 årig familjefar med en underbar fru,
två oftast mycket snälla barn, en papegoja, en villa med
trädgård (som kräver sitt underhåll) och en kombibil.
Med andra ord ganska normal
|