Så här långt fungerar det om posten inte finns (sidan.asp?id=1) svaret blir: Annonsen är Raderad
Nu vill jag även kunna skicka med fler id ex sidan.asp?id=1,2,3,4
Hur går jag vidare för att fixa detta?


<% If Request.QueryString("id") Then %>

<% Dim Showinfo
Showinfo = "SELECT * FROM Annons WHERE ID in(" & Request.QueryString("ID") & ") "
objRS.Open Showinfo, objCon, adOpenStatic, adLockOptimistic %>

<% On Error Resume Next %>


<% If objRs("VisaAnnons") = "DEL" or err.number <> 0 Then %>
<% response.write("Annonsen är Raderad") %>


<% elseIf objRs("VisaAnnons") = "JA" and not err.number <> 0 Then %>
<% response.write("Annonsen Finns") %>


<% End If %>

<% End If %>


<% objRS.Close
Set objRS = Nothing
Set objCon = Nothing %>

hmm, luktar osäkerhet i ditt system nu, men för att besvara på din fråga:

1.kontrollera om sträningen innehåller kommatecken
2a om Nej, ta endast bort den posten
2b om ja, gör en split på strängen och gör en loop som tar bort alla.


Personligen har jag gjort om det så id:na inte är i querystringen. I form-fält är bättre.

:( finns det någon script akut!?!? :)


Kan någon hjälpa mig med ett kod exempel :)
Tar det igen vad jag vill göra. Ex sidan anropas med id?=1,2,3,4
siffrorna 1,2,3,4 är unika id på annonsen

Kolumn VisaAnnons i databasen kan ha följande värde
Nej = annonsen finns men skall granskas för godkännande
Ja = annonsen finns och är godkänd
Del = annonsen borttagen av annonsören

nu till problemet om administratören raderat posten (1) skall
även svaret bli: annonsen raderad.

Jag har testat att köra en loop och om administratören raderat posten (1) ur databasen uteblir det önskade svaret: annonsen raderad

exempel
post (1) Post raderad ur databasen av admin
post (2) har värdet JA
post (3) har värdet DEL
post (4) har värdet JA

Svar
(1) annonsen raderad
(2) annonsen finns
(3) annonsen raderad
(4) annonsen finns

Nåt sånt här kanske?

<%
Dim myArr, i
myArr = Split(Request.QueryString("ID"),",")
'
' Öppna databasanslutning
'
For Each i In myArr
  Response.Write("(" & i & ") ")
  Showinfo = "SELECT * FROM Annons WHERE ID=" & i
  objRS.Open Showinfo, objCon, adOpenStatic, adLockOptimistic
  If objRS.EOF Then
    Response.Write("annonsen raderad")
  Else
    If objRS("VisaAnnons")="DEL" Then
      Response.Write("annonsen raderad")
    Else
      Response.Write("annonsen finns")
    End If
  End If
  Response.Write("<br>")
  objRS.Close
Next
'
' Stäng databasanslutning
'
%>

Ett STORT TACK med ett lika stort leende :)

En fråga kvarstår.

Hur får man ett radbyte utan HTML kod, all data skall vara i text?
Response.Write("<br>") kan inte användas i detta fall

Ex. vid visa källa "i anteckningar" då skall
annons raderad
annons finns
annons raderad
osv vara på en egen rad!

Använd konstanten vbCrLf (Carriage Return/Line Feed) :

Response.Write(vbCrLf)

Tackar igen :)