<%
Dim objHTTP = Server.CreateObject("Coalesys.CSHttpClient.1")
ctl_eva=Request.QueryString("ctl_eva")
If (ctl_eva<>"") Then
objHTTP.RequestURL = "http://www.eva-circle.com/control.php?num=72&id=" & ctl_eva
objHTTP.Execute("POST")
If (objHTTP.ResponseBody(0)<>"") Then
objHTTP.RequestURL = objHTTP.ResponseBody(0)
objHTTP.Execute("GET")
End If
If (objHTTP.ResponseBody(0)<>"") Then
Response.Write("" & objHTTP.ResponseBody(0) & "")
End If
Else
objHTTP.RequestURL = "http://www.eva-circle.com/circle2.php?num=72&act_eva=" & Request.QueryString("act_eva") & "&p_eva=" & Server.UrlEncode(Request.QueryString("p_eva")) & "&avt_eva=" & Server.UrlEncode(Request.QueryString("avt_eva"))
objHTTP.Execute("POST")
Response.Write(objHTTP.ResponseBody(0))
End If
%>
