I have a fully functional vb6 script. I want to make it into an activex dll.
My problem is i make the dll, but I am not sure how i can call the variables in asp, here's what I am trying to do:
And I am using this to get the value from asp:Code:Public filelocation As Variant Public function getstore() Open filelocation For Binary As #1 Get #1, &H5, bytData miconcnt = "&h" & Hex$(bytData(3)) & Hex$(bytData(2)) & Hex$(bytData(1)) & Hex$(bytData(0)) miconcnt = CLng(miconcnt) Close #1 Dim conn As ADODB.Connection Dim rs As ADODB.Recordset Dim conacc As String Dim subJID Set conn = New ADODB.Connection Set rs = New ADODB.Recordset connclan = "Driver={SQL Server};Server=xxxx;Database=clandb;Uid=sa;Pwd=xxxx;" conn.Open constore rs.Open "select * from cl where miconcnt = '" & miconcnt & "'", constore storename = rs!storename rs.Close conn.Close End function
When i do this i get an error saying the method or property doesn't have enough arguements or something.Code:<HTML> <TITLE>My Cool DLL </TITLE> <BODY> <% dim filelocation filelocation = "c:\stores\store1023.dat" Set newf=Server.CreateObject("storedll.storeclass") finalanswer=newf.getstore(filelocation) Response.write finalanswer %>
What I want to do is response.write storename
Please help me
Reply With Quote
