<%
SQL="Select count(*) as antal FROM Tbladd WHERE Email = '" & visitoremail & "' AND DateDiff('D', Date , now()) < 1" & ";"
Set Con = Server.CreateObject("ADODB.Connection")
Con.Open "DBQ=" & Server.Mappath("market.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};"
Set RS = Server.CreateObject("ADODB.Recordset")
RS.Open SQL, Con
If RS("antal") < 6 Then
spamcheck=0
end if
RS.Close
Set RS = Nothing
Con.Close
Set Con = Nothing
%>
Frågan#1
Jag joxar med ett annonsscript också... men det tillåter bara en annons/email och dag.
Ett spamfilter med loggade IPadresser inbyggt.
Nåja. Det kan ju faktiskt hända att man vill ändra sin annons eller lägga till ytterligare en eller två.
Men jag får inte till det och funderar på om jag är på rätt sida och tittar.
Någon som har en ledtråd?
Koden är som följer: (Att ändra siffervärdet 1 till tex 5 ändrade inget och man kunde inte lägga in ytterligare annons...)
<%
SQL="Select * FROM Tbladd WHERE Email = '" & visitoremail & "' AND DateDiff('D', Date , now()) < 1" & ";"
Set Con = Server.CreateObject("ADODB.Connection")
Con.Open "DBQ=" & Server.Mappath("market.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};"
Set RS = Server.CreateObject("ADODB.Recordset")
RS.Open SQL, Con
If NOT RS.EOF Then
spamcheck=0
end if
RS.Close
Set RS = Nothing
Con.Close
Set Con = Nothing
%>