Kan man slå ihop dessa två sql-strängar till en sträng? Med joins eller nåt? Snälla hjälp mig med detta någon som förstår hur jag menar.
<%
Set RS=Conn.Execute("Select * From gruvsjo_gastbok Order By gastbokID desc")
If RS.EOF Then%>
Ingen har skrivit i gästboken.
<%Else
Set CheckOrd=Conn.Execute("Select * From gruvsjo_beslink_ordblock")
bOk = True
Do Until CheckOrd.EOF
If InStr(lcase(RS("msg")),lcase(CheckOrd("namn"))) then
bOk = False
End If
If InStr(lcase(RS("url")),lcase(CheckOrd("namn"))) then
bOk = False2
End If
If InStr(lcase(RS("namn")),lcase(CheckOrd("namn"))) then
bOk = False3
End If
If InStr(lcase(RS("stad")),lcase(CheckOrd("namn"))) then
bOk = False4
End If
CheckOrd.MoveNext
Loop
CheckOrd.Close:Set CheckOrd=Nothing
If bOk = False or bOk = False2 or bOk = False3 or bOk = False4 Then
Else
If FormatDateTime(RS("datum"),2) = FormatDateTime(Now(),2) Then%>
<b>Idag</b> (<%=FormatDateTime(RS("datum"),4)%>)<br>
<%Else%>
<%=FormatDateTime(RS("datum"),2)%> (<%=FormatDateTime(RS("datum"),4)%>)<br>
<%End If%>
<a href="main.asp?cat=place&ucat=gastbok" class="vit"><%=Code(Crop(Left(RS("msg"),120)))%>...</a>
<br>
<b>Postat av:</b> <%=RS("namn")%>
<%End If
ENd If
RS.Close:Set RS=Nothing
%>