Det här vill jag göra:koll av raderade poster
sidan anropas med ?id=XX,ZZ,YY, osv.... (olika id och separerade med komma) detta skall returneras:
Finns
Raderad
Raderad
osv....
Någon som har förslag på hur jag löser detta?
<% If request.querystring("id") Then %>
<% Set objRS = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT * FROM AnnonsData WHERE ID in(" & Request.QueryString("ID") & ") " _
& "and not (VisaAnnons = 'NEJ')"
objRS.Open strSQL, strCon, adOpenStatic, adLockOptimistic %>
<% Do until objRS.EOF %>
--------Här finns posterna kvar
<% if objRS("VisaAnnons") = "DEL" or objRS("VisaAnnons") = "RAD" Then %><% Response.write ("Raderad")%>
<% elseif objRS("VisaAnnons") = "JA" Then %><% Response.write ("Finns") %>
---------Om posten inte finns kvar i databasen vill jag även här ge ett svar RADERAD. När jag testar denna så kommer inget felmeddelnade upp eller något överhuvudtaget ex. om jag lägger till
<% else %><% Response.write ("Raderad") %>
<% If objRS.EOF Then %>
<% Exit Do
End If %>
<% X = X + 1 %>
<% objRS.MoveNext %>
<% Loop %>
<% end if %>
<% objRS.Close
Set objRS = Nothing
Set objCon = Nothing %>