connecting access using ASP

#1

strnim = Lcase(Request("nim"))
strcode = Lcase(Request("mk_kode"))
dim MyConn,rst


Set MyConn = Server.CreateObject("ADODB.Connection")
openStr = "driver={Microsoft Access Driver (*.mdb)};" & _
"dbq=" & Server.MapPath("wap.mdb")
MyConn.Open openStr,"",""

strsql="select sum(sks) from view where nim='"&strnim&"'"
set rst=server.createobject("ADODB.Recordset")
-------------------------------------------------------------------
#2
strnim = Lcase(Request("nim"))
strcode = Lcase(Request("mk_kode"))
dim MyConn,rst

Set MyConn = server.createobject("ADODB.connection")
MyConn.open "wap","",""

strsql="select sum(sks) from view where nim='"&strnim&"'"
set rst=server.createobject("ADODB.Recordset")
--------------------------------------------------------------------
i need help here, the #2 code runs well on my pc. but wont run on my online server , i've modified to #1 , i think it should run, but i doesnt. any help would be aprreciated.

Let me welcome you all guys myself personal I prefered to connect Access to my ASp pages using DSN
,

It so extremely easier even if you are not a good Programmer .
Please try to make life easier for you by reading tutorial on displaying data information to Clients/User

Then at the moment I am failing to explain in more
details cause ,of not sure if you have covered the tutorials which I am refering you to read ,

Please don't feel hestitate to contact me at any time on smtyenene@ufh.ac.za
After you have went through those tutorials
Cheers