webForumDet fria alternativet

Slå ihop sql-strängar

0 svar · 459 visningar · startad av Asa

AsaMedlem sedan dec. 20011 934 inlägg
#1

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
%>
Genererad på 372 ms · cache AV · v20260730165559-full.f96bc7eb