|
Klotterplank
Har du nåt att säga? Säg det här!
På grund av att spamrobotar för ett tag sedan öste in ett 50-tal struntmeddelande per timme har vi lagt in en liten kontrollfråga vid inlägg i gästboken som vi hoppas kan lösa detta problem. Tips: Svaret på den kluriga frågan börjar på H och slutar på onda :-)
Ni som är märkesfanatiker och vägrar skriva in det ordet får väl be en kompis göra det åt er.
<%if request.QueryString("varning")="ja" then%>
Varning! Du svarade fel på kontrollfrågan. Kolla så du inte har stavat fel eller nåt. Tryck på bakåtknappen i din webbläsare, då kommer oftast det du skrev tillbaka in i fälten och du kan prova med ett annat svar på kontrollfrågan.
<%end if%>
<%=message%>
| Tidigare inlägg |
<%
i=0
do while not rstemp.eof
if i mod 2 = 0 then
currStyle="light_tr"
else
currStyle="dark_tr"
end if
%>
<%
gastNamn=rsTemp("gastNamn")
gastStad=rsTemp("gastStad")
gastDrives=rsTemp("gastDrives")
gastDatum=formatSweDate(rsTemp("gastDatum"))
gastHemsida=rsTemp("gastHemsida")
gastHemsida=replace(gastHemsida, "http://", "")
gastEpost=rsTemp("gastEpost")
gastMeddelande=rsTemp("gastMeddelande")
gastMeddelande=replace(gastMeddelande, "@", "")
gastMeddelande=replace(gastMeddelande, vbCrLf, "
")
%>
Namn:
<%if gastEpost<>"" and instr(gastEpost, "@")>0 then
gEp=split(gastEpost,"@")
%>
<%=gastNamn%>
<%else%>
<%=gastNamn%>
<%end if%>
<%if gastStad<>"" then%>Stad: <%=rsTemp("gastStad")%>
<%end if%>
<%if gastDrives<>"" then%>Kör: <%=rsTemp("gastDrives")%>
<%end if%>
Skickat: <%=gastDatum%>
<%if gastHemsida<>"" then%>Hemsida: <%=gastHemsida%>
<%end if%>
<%=gastMeddelande%>
|
<%rstemp.movenext
i=i+1
loop
%>
|