Very basic

[JorgeLedo]

Hi. I have this very basic question. I´ve never used an ASP command in my life so....
I'm already connected to the internet.

As I imagine I have an ASP exe in a server that if I sen a command like the one that follows:

--CODE--
var mobj = new ActiveXObject("Microsoft.XMLHTTP")
var xmlDom = new ActiveXObject("Microsoft.XMLDOM")

mobj.open ("POST", "serverNameortNumber/SMSForum/getXML.asp?forum_id=1&username=aaa&password=bbb" ,false)
mobj.setRequestHeader ("Content-Type","text/xml")
mobj.setRequestHeader("Cache-Control","no-cache")

mobj.send ("<send>empty</send>")

xmlDom.async = false
xmlDom.loadXML(mobj.responseXML.xml)
if (xmlDom.parseError == 0){
// access to the object XMLDOM permited
}
--END CODE--

How can I convert this into a function in VBasic ??

Sorry for the basic question but I only programm in VB for front-end to video-graphics programs.

Sorry once again.

[WALDO]

<%
Dim mobj
Dim xmlDom
 
Set mobj = Server.CreateObject("Microsoft.XMLHTTP")
Set xmlDom = Server.CreateObject("Microsoft.XMLDOM") 
 
mobj.open ("POST", "serverName:PortNumber/SMSForum/getXML.asp?forum_id=1&username=aaa&password=bbb" ,false) 
mobj.setRequestHeader ("Content-Type","text/xml") 
mobj.setRequestHeader("Cache-Control","no-cache") 
 
mobj.send ("<send>empty</send>") 
 
xmlDom.async = False
xmlDom.loadXML(mobj.responseXML.xml) 
If (xmlDom.parseError = 0) Then 
' access to the object XMLDOM permited 
Else
'You have been screwed
End If
%>

Big difference...NOT!