| Besökare:
|
|
Totalt:
|
<%
Set rs = Server.CreateObject("ADODB.RecordSet")
sql = "SELECT * FROM statistik"
rs.Open sql, Connect, 3, 3
%>
<%=rs("totalt")%>
|
|
Idag:
|
<%=rs("idag")%>
|
| Just nu:
|
<%
response.write(Application("visitors"))
%>
|
|
<%
rs.Close
sql = ""
%>
|
Välkommen till Prylsajten.nu
- sajten med helt gratis annonsering.
|
Eftersom du har hamnat på denna sida så har du antingen
inte registrerat dig, eller så har du inte loggat in. Härifrån
kan du kolla igenom annonserna som finns inlagda, men du kan inte
annonsera utan att registrera dig. Om det är första gången
du besöker prylsajten så kan vi berätta att denna
sida är en annons-sida för privatpersoner. Sajten är
helt gratis att använda så länge det görs på
ett korrekt sätt ( se FAQ ).
Info
Registrering på prylsajten.nu är inte bindande
på något vis. För att sajten ska fungera
på ett avsett sätt så bör man alltid
uppge sanningsenliga uppgifter. Vid misstanke om felaktiga
uppgifter så har prylsajten full rätt att radera
användaren ur registret.
<%
if Request.Querystring("val") = "skicka" Then
'if Not Request.Form("epost") = "din.väns@epostadress" Then
body = "En vän till dig har hittat en sajt på nätet som han vill tipsa dig om Surfa in på http://www.prylsajten.nu du också och se om det finns något som passar dig, eller kanske du har något du vill bli av med."
Recipient = Request.Form("epost")
Set mail = Server.CreateObject("DynuEmail.Functions")
mail.smtp = "smtp.prylsajten.nu"
result = mail.send("info@javesnet.com", Recipient, "Sajt-Tips från " & Request.Form("namn"), body)
Set mail = nothing
'End if
Response.Redirect "default1.asp"
End if
%>
|
|
|
|
|
|
Vill du också presentera ditt företag eller din sajt på prylsajten.nu?
kontakta då info@prylsajten.nu
|
|
|
© 2002 PRYLSAJTEN.NU
|
Startsidan:
Köpes
Säljes
Bytes
FAQ
Annons
Mina annonser§
Mina uppgifter§
Maila prylsajten: