Vår gästbok

<% ' 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
Reklam sänder du till webbmastern
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.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.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.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.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 = "xxxxxxx" ' skriv din emailadress inom " " Recipientname = "webbmaster" ' skriv ditt namn här Subject = "nytt i boken" ' ändra till önskad text IF Spam > 0 THEN Response.Redirect "http://spam.abuse.net" ' 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 End If %>

*Namn:
*Ort:
Landskap:
*Land:
Email:
URL:
Kommentarer: (här kan du trycka enter för att få ny rad)