| 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.
|
<%
Set rs = Server.CreateObject("ADODB.RecordSet")
sql = "SELECT * FROM medlemmar WHERE pass ='" & Request.Cookies("prylsajten") & "'"
rs.Open sql, Connect, 3, 3
%>
Välkommen <%=rs("namn")%>.
<%
if rs("statistik") = "1" Then
%>
Hur gör man...
Eftersom det här är första gången du
besöker prylsajten.nu så kommer här en kort
förklaring till hur sajten fungerar och hur du använder
den.Observera att denna text kommer att försvinna
vid nästa besök.
Inloggning
När du en gång har loggat in på prylsajten
med ditt lösenord, så kommer du att få denna
sida som startsida. Du behöver alltså inte logga
in varje gång som du besöker sidan. Observera
att du måste acceptera Cookies i din browser för
att sidan ska fungera.
Menyn
Till vänster ser du menyn som du använder för
att navigera på sajten till dom olika undersidorna.
Köp, Sälj och bytes, tar dig till befintliga
annonser.
Faq, förklarar dom vanligaste frågorna angående
sajten.
Startsidan, tar dig alltid tillbaka till denna sida, dock inte denna text
Annons, här kan du som inloggad skapa din egen
annons.
Mina Annonser, visar samtliga annonser som du har aktiva
Mina uppgifter, redigering/visning av dina medlemsuppgifter
<%
rs.Close
sql = ""
Else
%>
<%
End if
rs.Close
sql = ""
%>
<%
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 "default2.asp"
End if
%>
|
|
<%
Set rs = Server.CreateObject("ADODB.RecordSet")
sql = "SELECT * FROM medlemmar WHERE pass ='" & Request.Cookies("prylsajten") & "'"
rs.Open sql, Connect, 3, 3
%>
| Medlems-Statistik:
|
Antal besök: |
<% =rs("statistik")%> |
<%
Set Srs = Server.CreateObject("ADODB.RecordSet")
Ssql = "SELECT bymember FROM annonser WHERE bymember =" & rs("id") & ""
Srs.Open Ssql, Connect, 3, 3
annonser = Srs.RecordCount
%>
| Antal annonser:
| <%=annonser%>
|
<%
Srs.Close
Ssql = ""
%>
| Nya svar: |
<%
'if Request.Cookies("inbox") = "" Then
Set Srs = Server.CreateObject("ADODB.RecordSet")
Ssql = "SELECT * FROM medlemmar WHERE pass = '" & Request.Cookies("prylsajten") & "'"
Srs.Open Ssql, Connect, 3, 3
id = Srs("id")
Srs.Close
Ssql = ""
Set Trs = Server.CreateObject("ADODB.RecordSet")
Tsql = "SELECT * FROM svar WHERE svarid = " & id & " AND kollad = 1"
Trs.Open Tsql, Connect, 3, 3
antal = Trs.RecordCount
Trs.Close
Tsql = ""
if antal = "0" Then
%>
<%=antal%>
<%
Else
%>
<%=antal%>
<%
End if
%>
| Medlem sedan:
| <%=rs("skapad")%>
|
| Senaste Besök:
| <%=rs("datum")%>
<%
rs.Close
Connect.Close
sql = ""
%>
| |
|
|
Info
Prylsajten kommer ständigt att uppdateras med nya funktioner.
Har du något bra förslag på en funktion eller tjänst
så tveka inte att maila info@prylsajten.nu.
|
Lider
du av NYHETSTORKA??
|
Nyheter via Nyhetsrubriker.com
|
|
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:
<%=rs("datum")%> | <%=rs("rubrik")%>