if InStr

SQL = "SELECT * FROM Posts WHERE Dato=DATE() ORDER by dato desc"

sådan .. Access/MySQL/MSSQL kan selv klare det ... DATE() giver datoen i dag.

ok - jeg kan do stadig ikke få den til at udføre if then sætningen korrekt - altså HVIS den finder IP i databasen med idags dato skal den gøre et - ellers noget andet.

kan du hjælpe mig med den?

I koden ovenfor skal den jo stoppe med at køre videre hvis den finder Ip'en - men det vil den ikke (i den efterfølgende kode smides posten i databasen) og det skal den jo kun hvis ikke IP'en er fundet

InStr() giver dig et index for hvor i strengen det søgte befinder sig. Som jeg ser din kode, så leder du efter strengen "refer_ip", og ikke indholdet af variablen med samme navn :-)

Altså:
If InStr(Refer, refer_ip) > 0 Then
...
Else
...
End If

- Hvis det heller ikke triller, så prøv at CStr() bege argumenterne før du kalder InStr()

/CS

Greystate > takker.Prøv lige at tjek koden. Så er det måske nemmere for dig at se hvad jeg mener. Nu kalder den fint nok siden "fejl.html" hvis den finder en IP - men den smider stadig posten i databasen...

' --- Tjek for flere post på samme dag
Set RS = server.CreateObject("ADODB.connection")
RS.open ConnString
SQL = "SELECT * FROM Posts WHERE Dato = DATE()"
Set RS = RS.Execute( SQL )
   
    do until RS.eof

    Dato = RS("Dato")
    Refer = RS("Refer")
    Email = RS("Email")
       
    response.write Refer & "<br>"
    if InStr(Refer,refer_ip) > 0 then
    response.write "<br>Allerede postet idag..."
    response.write "<a href='post.html'><< tilbage</a><br><br>"
    %>
    <script>
parent.location="fejl.html";
</script>
    <%
   
    end if
       
    RS.MoveNext
    Loop
    RS.Close
    Set RS = Nothing

' --- Add link to database
Set RS = server.createobject ("ADODB.recordset")
RS.open "Posts", ConnString, adOpenStatic, adLockOptimistic, adCmdTable

RS.addnew

    RS("Category") = request.form("Category")
    RS("Url") = request.form("Url")   
    RS("Email") = request.form("Email")
    RS("Dato") = date
    RS("Refer") = refer_ip

    if request.form("Confirmmail") = "" then
    RS("Confirmmail") = False
    else
    RS("Confirmmail") = request.form("Confirmmail")
    end if
   
    response.write "Post added to database."
   
RS.update
RS.close
RS = null

Yep - det er een af dem hvor man skal have styr på forskellen mellem Client-Side og Server-Side scripting...

Den hurtigste løsning er at udskifte din "end if" med en "Else", og indsætte en ny "End If" IMELLEM "RS.update" og "RS.close"...

/CS

Ups - "End If" skal bare sættes ind til allersidst (efter RS = null)...

Jeg overså den nye kodeblok..

/CS

Sådan havde jeg faktisk prøvet - men får så:

'Loop' uden 'Do'
/post.asp, line 70

tror jeg har den