<% if( request.QueryString("ACTION") = "EMAIL" ) then topicId = request.Form("TopicId") set rs1 = server.CreateObject("ADODB.Recordset") selsql1 = "select * from tblTopic where TopicId=" & topicId rs1.Open selsql1,db,3 nname = request.Form("txtname") email = request.Form("txtemail") message =rs1("Message") call mailToFriend(nname,email,message) response.Redirect("forum_posts.asp?ERRCODE=SUCCEMAIL&topic=" & topicId) end if topicId = request.QueryString("TopicId") set rs = server.CreateObject("ADODB.Recordset") selsql1 = "select * from tblTopic where TopicId=" & request.QueryString("TopicId") rs.Open selsql1,db,3 %>
<% if request.QueryString("errmsg") = 2 then msg = "Username or Password Invalid" elseif request.QueryString("errmsg") = 3 then msg = "Thank you for registering to use MBS" elseif request.QueryString("errmsg") = 5 then msg = "The password has been mailed to your email address!" end if if msg <> "" then %> <% end if %>
Fields marked with * are required
<% response.write(msg) %>
 
Your Name *
Email *
Topic <%=rs("Message") %>