<%=document_title%> for <%=strProgramName + " " + strProgramVersion%>

<%@ Language=VBScript %> <% document_title = "Submit Your Review" %> <% Dim obj Set obj = CreateObject("qweas.classPadXML") Dim f_UID, User_IP, User_Name, User_Review, strResult, User_Email, User_Rating Dim pic_name, authcode Dim strXML, strProgramName, strProgramVersion pic_name = get_http_request("pic_name") f_UID = get_http_request("UID") If pic_name <> "" Then User_IP = Request.ServerVariables("REMOTE_ADDR") User_Name = get_http_request("User_Name") User_Email = get_http_request("User_Email") User_Rating = get_http_request("rating") User_Review = get_http_request("review") authcode = get_http_request("authcode") strProgramName = get_http_request("Program_Name") Dim blnResult, strMsg blnResult = True If Trim(f_UID) = "" Then blnResult = False strMsg = "Please enter the Software Name" End If If md5(authcode) <> pic_name Then blnResult = False strMsg = "The code you entered is not correct" End If If Trim(User_Review) = "" Then blnResult = False strMsg = "Please enter your review" End If 'If User_Email <> "" Then ' If Not is_email(User_Email) Then ' blnResult = False ' strMsg = "Please enter the correct Email Address" ' End If 'End If If Trim(User_Name) = "" Then blnResult = False strMsg = "Please enter your name" End If If blnResult Then strResult = obj.qweas_softReview(f_UID, User_IP, User_Name, User_Email, User_Rating, User_Review, "0") If strResult <> "" Then blnResult = False strMsg = strResult End If End If If blnResult Then strMsg = "Your review was submitted successfully, if this window cannot close automattically, please close it manually." %> <% End If Else pic_name = get_picname2() If f_UID = "" Then strProgramName = "" Else If obj.qweas_getsoft(f_UID, strXML) = "" Then Dim objXML Set objXML = CreateObject("MSXML2.DOMDocument") objXML.loadXML strXML strProgramName = GetNodeText(objXML, "Program_Name") strProgramVersion = GetNodeText(objXML, "Program_Version") 'strProgramName = strProgramName + " " + strProgramVersion Else strProgramName = "" End If End If User_Rating = 4 End If User_Rating = 4 %> <%=document_title%> for <%=strProgramName + " " + strProgramVersion%> " /> " />

About Qweas