reddot rql release page

Set objIO = Server.CreateObject("RDCMSASP.RdPageData")
objIO.XmlServerClassName = "RDCMSServer.XmlServer"
Function release_page(thispageGuid)
dim xmlString
dim resXML
xmlString = "" _
& "<IODATA loginguid=""" & Session("LoginGuid") & """ sessionkey=""" & Session("SessionKey") & """>" & Vbcrlf _
& "  <PAGE action=""save"" actionflag=""4096"" guid=""" & thispageGuid & """ globalrelease=""0"" languagevariantid=""" & Session("LanguageVariantId") & """/>" & VbCrLf _
& "</IODATA>" & Vbcrlf
resXML = objIO.ServerExecuteXml(XMLString, sError)
If sError <> "" Then
Response.Write "<span style='color:red'>" & sError & "</span><br />"
End If
End Function