Connecting to a database from classic ASP

gistfile1.asp

Dim conn
Dim objRS
Dim cmd


Set conn = Server.CreateObject("ADODB.Connection")    
Set objRS = Server.CreateObject("ADODB.Recordset")
Set cmd = Server.CreateObject("ADODB.Command")

conn.Open "Provider=SQLOLEDB;Data Source=192.168.x.x;Initial Catalog=xxxxx;User Id=x;Password=xxxxxxxxxxxxxx"

Function InsertMO(ByVal StrDetail, ByVal TheTelco, ByVal ThePhone, ByVal TheSessionID, ByVal intkeywordid, ByVal intsessionid)
    StrDetail = Replace(StrDetail,"|","-")
    sqlInsert = "INSERT INTO InboxTbl (MobileNumber,KeywordId,Message,GUID,TelcoID,TransactionID) VALUES ('+6" & ThePhone & "'," & intkeywordid & ",'" & StrDetail & "','" & intsessionid & "'," & TheTelco & ",'" & TheSessionID & "')"
    Set objRS = conn.Execute(sqlInsert)
End Function