Privat

Hur går jag tillväga om jag vill skriva ut <br><br><br>privat<b><b><b> när privat är satt till 1 och egen till 0 ?

tack

            <% 

	SQL = "Select * From gastbok WHERE till = "&userid&" ORDER BY datum DESC"
	
	Set Rs2 = Server.CreateObject("ADODB.RecordSet")
	Rs2.CursorLocation = 3

	'Antal inlägg som ska vissas vid katalog visning
	Rs2.PageSize = 10

	Rs2.Open SQL, Connect, 1,3

	if Rs2.eof then
		Response.Write "<br><i><center>Här var det öken..</center></i>"
	else
	
			If Rs2.PageCount > 1 Then
			For i = 1 to Rs2.PageCount
				If i = CLng(sida) Then
					Response.Write "[" & i & "]&nbsp;"
				Else
					Response.Write "<a href=?page=61&userid="&userid&"&sida=" & i & ">" & i & "</a>&nbsp;"
				End If
			Next
		End If

		Dim sida
		sida = Trim(Request.QueryString("sida"))
		If sida = "" Then
			sida = 1
		End If
		
		Rs2.AbsolutePage = sida		

		Dim rad
		rad = 0
		
		Response.write "<table width='100%'>"
		
		While Not Rs2.EOF and rad < Rs2.PageSize
			rad = rad + 1
							if Rs2("privat") = 0 or cint(Session("cmid")) = cint(Rs2("fran")) OR cint(Session("cmid")) = cint(Rs2("till"))  then
  'Visa
else
  'privat
end if

			if Rs2("privat") = 1 AND egen = 1 OR Rs2("privat") = 1 AND Session("cmid") = Rs2("fran") OR Rs2("privat") = 0 then
				if x = 0 then
					bgcolor = "#E7E7FE"
					x = 1
				else
					bgcolor = "#FFFFFF"
					x = 0
				end if
				

				SQL = "Select * from medlemmar where id = '"&Rs2("fran")&"'"
				Set Rs3 = Connect.execute(SQL)

				Response.Write "<tr><td bgcolor="&bgcolor&">"

			 	if Rs3("bild") = "" OR Rs3("bild") = "ingen" then
					Response.Write "<img src=bilder/userspics/ingenbild.gif width=50 height=70 border=1>"
				else
					if Rs3("bildaccept")="1" then
						Response.Write "<a href=?page=2&userID="&Rs3("ID")&" border=0><img src=bilder/userspics/"&Rs3("bild")&" width=50 height=70 border=1></a>"
					else
						Response.Write "<img src=bilder/userspics/ingenbild2.gif width=50 height=70>"
					end if
				end if

				Response.Write "<td bgcolor="&bgcolor&" width=600>Skrivet av <a href=?page=2&userID="&Rs3("ID")&">"&byt(Rs3("alias"))&"</a> "
				datum = rs2("datum") 
select case cdate(FormatDateTime(datum,vbShortDate))
 case date()
  response.write "@ idag kl " & FormatDateTime(datum, vbShortTime)
 case dateadd("d",-1, date())
  response.write "@ igår kl " & FormatDateTime(datum, vbShortTime)
 case else
response.write FormatDateTime(datum, vbLongDate) & " kl " & FormatDateTime(datum, vbShortTime)
end select
				
				
				if Rs2("privat") = 1 then
					Response.Write " [privat] "
				end if
				Response.Write "<br><br><b></b> "&Rs2("text")
				if egen = 1 then

					Response.Write "<br><br><br><br>"		
					Response.Write "<a href=?page=61&userid="&userid&"&sida=" & sida & "&delID="&CLng(Rs2("Id"))&"><img border='0' align='right' src='gb/radera.gif'></a>"	
					Response.Write "<a href=?page=61&userid="&CLng(Rs2("fran"))&"><img border='0' align='right' src='gb/svara.gif'></a>"
				end if
				Response.Write"</td></tr>"
				

				Rs3.close
				Set Rs3 = Nothing

			end if

		Rs2.MoveNext
		Wend
		
		Response.write "</table>"
		
		If Rs2.PageCount > 1 Then
			For i = 1 to Rs2.PageCount
				If i = CLng(sida) Then
					Response.Write "[" & i & "]&nbsp;"
				Else
					Response.Write "<a href=?page=61&userid="&userid&"&sida=" & i & ">" & i & "</a>&nbsp;"
				End If
			Next
		End If

	end if

	Rs2.CLOSE
	Set Rs2 = nothing

if Request.Querystring("action") = "spara" then

	fran = Session("cmID")
	till = userid
	status = + 5
    last = "0"
	datum = Now
	text = Replace(request.Form("text"),"'","\'")
	ip = Request.ServerVariables("REMOTE_ADDR")
		
	if request.Form("privat") = 1 then
		privat = 1
	else
		privat = 0
	end if
	
	Connect.Execute("INSERT INTO gastbok (fran, till, text, datum, ip, privat, last) VALUES('"& fran &"','"& till &"','"& text &"','"& datum &"','"& ip &"','"& privat &"','"& last &"')")
	
	Response.Redirect "?page=61&userid="&userid&""
end if

if Request.Querystring("delID") <> "" then %><!-- #include file="databaskopplingar.asp" --><%
		sida = Request.Querystring("sida")
		Connect.execute("delete from gastbok where id = "&request.querystring("delID")&"")
		Response.Redirect("?page=61&sida="&sida&"")
end if

egen = ""
Connect.CLOSE
Set Connect = nothing

else
	s = Request.Querystring("s")
	Set FSO = Server.CreateObject("Scripting.FileSystemObject")
	Set File = FSO.OpenTextFile(Server.MapPath("databaskopplingar.asp"),1)
	Response.Write Replace(server.HTMLEncode(File.ReadAll),vbCrLf, "<br>")
	File.Close
	Set File = Nothing
	Set FSO = Nothing
end if
%>