<%@ LANGUAGE="VBSCRIPT" %>
<%
Dim CommandText,ConnecObj
Set ConnecObj=Server.CreateObject("ADODB.Connection")
ConnecObj.Open "orientaljewels","plunia","PL765$"
If Session("cont_id")="" then
Session("cont_id")=8
Session("coun_id")=0
Session("stat_id")=0
Session("city_id")=0
End if
Dim M_from_ID,M_to_ID,M_subject,M_reply
Dim M_user_id
M_user_id = Session("user_id")
M_from_id = M_user_id
M_to_ID = Replace(Request.Form("reply_to"),"'","''")
M_subject = Replace(Request.Form("subject"),"'","''")
M_reply = Replace(Request.Form("reply"),"'","''")
'**********************************************************************************************
'Input Validation
Dim flag_Rdirect,err_str
err_str=""
Set Connecobj2 = Server.CreateObject("ADODB.Connection")
Connecobj2.Open "indiangyan","PLunia","PL765$"
CommandText="SELECT * FROM buyerTB WHERE user_id='" & TRIM(M_user_id) & "'"
Set RS_user = ConnecObj2.Execute (CommandText,RecordsAffected,adCmdText)
%>
<%
If (LEN(TRIM(M_subject))=0 ) then
err_str = err_str + "
You have not specified the subject of your reply...
"
flag_RDirect = "true"
End if
If (LEN(TRIM(M_reply))=0 ) then
err_str = err_str + "
There is no reply text present in your request...
"
flag_RDirect = "true"
End if
'**********************************************************************************************
%>
Action4bid.com - The most easiest and innovative way of business