Not VB ....ASP..perhaps someone uses it!

**HeSaidJoe** · Dec 15th, 1999, 07:50 PM

This is not VB but perhaps someone knows this one?
I am trying to use ASP on my web site and the ODBC connection on their end is visualbasicway and my db is visualbasic
What code do I need to make the connection?
The page will work on my site but I haven't figured out how to make it work on the host...and YES I have ASP priviliges.

**Serge** · Dec 15th, 1999, 08:56 PM

You have to bare in mind that you have to have that database located on the Server. Here is a sample of how to connect to an Access database using ASP:

Code:

&lt;%@ Language=VBScript %&gt;
&lt;HTML&gt;
&lt;HEAD&gt;
&lt;META NAME="GENERATOR" Content="My ASP Sample"&gt;
&lt;/HEAD&gt;
&lt;BODY&gt;

&lt;%	


	Dim cn
	Dim rs
	
	Set cn = Server.CreateObject("ADODB.Connection")
	cn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=d:\wwwroot\PhoneDirectory\PhoneDir.mdb;" 
	Set rs = Server.CreateObject("ADODB.Recordset")
	rs.Open "Select FirstName, LastName, Phone From Listing", cn, adOpenStatic
	
	Dim i
	Response.Write "&lt;center&gt;&lt;TABLE border='1'&gt;"
	Response.Write "&lt;TR&gt;"
	Response.Write "&lt;TD&gt;&lt;B&gt;First Name&lt;/TD&gt;"
	Response.Write "&lt;TD&gt;&lt;B&gt;Last Name&lt;/TD&gt;"
	Response.Write "&lt;TD&gt;&lt;B&gt;Phone Extention&lt;/TD&gt;"
	Response.Write "&lt;/TR&gt;"
	
	Do Until rs.EOF
			Response.Write "&lt;TR&gt;"
			For i = 0 To rs.Fields.Count - 1
				Response.Write "&lt;TD&gt;" & rs(i) & "&lt;/TD&gt;"
			Next
			Response.Write "&lt;/TR&gt;"
		rs.MoveNext
	Loop
	Response.Write "&lt;/TABLE&gt;&lt;/center&gt;"
	
%&gt;

&lt;/BODY&gt;
&lt;/HTML&gt;

In this small sample I'm using the PhoneList database where I'm trying to get all people to be shown in a table.

------------------

Serge

Software Developer
[email protected]
[email protected]
ICQ#: 51055819

**HeSaidJoe** · Dec 15th, 1999, 11:14 PM

Thank you...

Thread: Not VB ....ASP..perhaps someone uses it!

Thread Tools

Display

Posting Permissions