<% ' Följande rad gör att vissa spammare inte kan nyttja denna fil för att skicka spam IF instr(Request.ServerVariables("HTTP_USER_AGENT"),"PycURL") > 0 THEN Response.Redirect "http://spam.abuse.net" Flag = request.form("Flag") If IsEmpty(Flag) or Flag = "" then %>

Skriv in dig i vår gästbok

Notera: * betyder att fältet krävs

 
*Namn:
*Ort:
 Landskap:
*Land:
 Email:
 URL:
 Kommentarer: (här kan du trycka enter för att få ny rad)
 
 
<% End If If Flag = 1 then If IsEmpty(request.form("Name")) or request.form("Name")="" then response.write "

" response.write "


Du måste skriva ditt namn.
" response.write "

" response.write "" response.write "
" response.end Else Name = request.form("Name") Name = Replace(Name , Chr(34), """) Name = Replace(Name , Chr(39), "'") End If If IsEmpty(request.form("City")) or request.form("City")="" then response.write "
" response.write "


Du måste skriva ortsnamn.
" response.write "

" response.write "" response.write "
" response.end Else City = request.form("City") City = Replace(City , Chr(34), """) City = Replace(City , Chr(39), "'") End If ' we won't require a state State = request.form("State") State = Replace(State , Chr(34), """) State = Replace(State , Chr(39), "'") If IsEmpty(request.form("Country")) or request.form("Country")="" then response.write "
" response.write "


Du måste skriva ett land." response.write "

" response.write "" response.write "
" response.end Else Country = request.form("Country") Country = Replace(Country , Chr(34), """) Country = Replace(Country , Chr(39), "'") End If Email = request.form("Email") If request.form("URL")="http://" then URL = "" Else URL = request.form("URL") End If If IsEmpty(request.form("Comments")) or request.form("Comments")="" or request.form("Comments")=" " then response.write "
" response.write "


Glöm inte att skriva kommentarer!" response.write "

" response.write "" response.write "
" response.end Else Comments = request.form("Comments") Comments = Replace(Comments, vbCrLf, "
") Comments = Replace(Comments , Chr(34), """) Comments = Replace(Comments , Chr(39), "'") End If Flag = request.form("Flag") %>

Detta är den information du matat in. Om du vill ändra, tryck "Ändra" här nedan, annars tryck "Sänd".

Namn: <%= Name %>
Ort: <%= City %>
Landskap: <%= State %>
Land: <%= Country %>
Email: <%= Email %>
URL: <%= URL %>

Kommentarer:
<%= Comments %>

 
<% End If %> <% ' Uppgifter för att få email när det görs nya inlägg: Recipient = "mittnamn@domannamn.xx" ' skriv din emailadress inom " " Recipientname = "Ditt Namn" ' skriv ditt namn här Subject = "Nytt inslag i gästboken" ' ändra till önskad text ' call SendEmail ' OBS!! Tag inte bort ' - tecknet före call Sendmail på föregående rad ' förrän du angett din emailadress etc. på raderna ovan IF Spam > 0 THEN Response.Redirect "http://www.spamcop.net" End If %>