%@ Language = VBScript%> <%Option Explicit%> <%Response.Buffer = false%> <% Dim mySet, mySQL, db_server, db_name, db_username, db_userpassword, connectstr, myConn '*************************************************** ' The code for the hostel. ' Database variables db_server = "qyhaNews.db.4039944.hostedresource.com" db_name = "qyhaNews" db_username = "qyhaNews" db_userpassword = "Doha1234" ' If you use mySQL Server, the connecton string may look like this: connectstr = "Driver={MySQL ODBC 3.51 Driver};SERVER=" & db_server & ";DATABASE=" & db_name & ";UID=" & db_username & ";PWD=" & db_userpassword Set myConn = Server.CreateObject("ADODB.Connection") myConn.Open connectstr 'Create the connection 'myConn.Open strConn 'Create the recordset Set mySet = Server.CreateObject ("ADODB.RecordSet") 'Open the recordset, passing in the variable mySet.Open "Call sp_NewsList ",myConn,3,2 %>
