<% Function prepStringForSQL(sValue) Dim sAns sAns = Replace(sValue, Chr(39), "''") sAns = "'" & sAns & "'" prepStringForSQL = sAns End Function sName = Session("Name") Function isBlank(Value) if isNull(Value) then bAns = true else bAns = trim(Value) = "" end if isBlank = bAns end function Function FixNull(Value) if isNull(Value) then sAns = "" else sAns = trim(Value) end if FixNull = sAns end function %> <%=meta%> <%searchbox%><%loginform%>

<%If session("discussionlogin") then%> <%Else%> <%End if%>

<%=sitename%>: New Message
Category	Choose Category <% set dbConn = Server.CreateObject("ADODB.Connection") set rs1 = Server.CreateObject("ADODB.Recordset") dbConn.Open ConStr sql = "SELECT * FROM category ORDER BY category.name;" rs1.Open sql, dbConn, 1,2 if not rs1.eof then While not rs1.EOF %> value="<%=rs1("id")%>"><%=rs1("name")%> <% rs1.MoveNext Wend rs1.MoveFirst else response.redirect "error.asp?message=Error: No Categories found. Contact the sites admin and ask to add a Category before you can post." end if rs1.Close dbconn.Close set dbConn = Nothing set rs1 = Nothing %>
UserName	Logged on as: <%=session("username")%>
Email	<%=session("useremail")%>
Email
Password	Forgot password ? | Sign up now! | Remember
Topic
Message