T
tx_blond
Guest
I know that there are similar questions on here but I have tried so much already and I am just about ready to give up and start all over. 
I changed hosting providers (HUGE mistake) and the new one does not have a page to register your DSNs as my old one did so I am going crazy trying to figure this out. Many thanks for your help in advance!!!
This part of the code they have given me to establish the connection
<%
Set OBJdbConnection = Server.CreateObject("ADODB.Connection")
OBJdbConnection.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.Mappath("/db/storedb.mdb") & ";"
SQLQuery = "SELECT * FROM products"
Set RS = OBJdbConnection.Execute(SQLQuery)
%>
<%
Do While Not RS.EOF
%>
but now that I have that going I just get another error...
Microsoft OLE DB Provider for ODBC Drivers error '80004005'
[Microsoft][ODBC Driver Manager] Data source name not found and no default driver specified
/index2.asp, line 23
Here is my full code:
<!--#include file="Connections/StoreDB.asp" -->
<%
Set OBJdbConnection = Server.CreateObject("ADODB.Connection")
OBJdbConnection.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.Mappath("/db/storedb.mdb") & ";"
SQLQuery = "SELECT * FROM products"
Set RS = OBJdbConnection.Execute(SQLQuery)
%>
<%
Do While Not RS.EOF
%>
<%
Dim Featured__MMColParam
Featured__MMColParam = "1"
If (Request("MM_EmptyValue") <> "") Then
Featured__MMColParam = Request("MM_EmptyValue")
End If
%>
<%
Dim Featured
Dim Featured_numRows
Set Featured = Server.CreateObject("ADODB.Recordset")
Featured.ActiveConnection = MM_StoreDB_STRING
Featured.Source = "SELECT * FROM products WHERE product_featured = " + Replace(Featured__MMColParam, "'", "''") + ""
Featured.CursorType = 0
Featured.CursorLocation = 2
Featured.LockType = 1
Featured.Open()
Featured_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index
Repeat1__numRows = 3
Repeat1__index = 0
Featured_numRows = Featured_numRows + Repeat1__numRows
%>
<html>
<head>
<title>Tejas Jewelry & Design - Home Page</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body link="#330099" vlink="#666666" alink="#330099">
<table width="100%" border="0" cellpadding="2" cellspacing="2">
<tr>
<td colspan="3" bgcolor="#330099"> <div align="center"><img src="/images/TejasLogo.gif" alt="Tejas Jewelry & Design" width="615" height="79"></div></td>
</tr>
<tr>
<td colspan="3"> <table width="100%" border="0">
<tr>
<td width="25%">
<div align="center"><font color="#330099" face="Geneva, Arial, Helvetica, sans-serif"><strong><a href="/index.asp">Home</a></strong></font></div></td>
<td width="25%">
<div align="center"><font color="#330099" face="Geneva, Arial, Helvetica, sans-serif"><a href="/Products.asp"><strong>Catalog</strong></a></font></div>
<div align="center"><font color="#330099" face="Geneva, Arial, Helvetica, sans-serif"></font></div></td>
<td width="25%">
<div align="center"><font color="#330099" face="Geneva, Arial, Helvetica, sans-serif"><strong><a href="/JewelryFAQ.asp">Jewelry
FAQ</a></strong></font></div></td>
<td width="25%">
<div align="center"><font color="#330099" face="Geneva, Arial, Helvetica, sans-serif"><strong><a href="/PersonalShopper.asp">Personal
Shopper</a></strong></font></div></td>
</tr>
</table></td>
</tr>
<tr>
<td colspan="3"> </td>
</tr>
<tr>
<td width="19%" height="123" valign="top"> <p><strong><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Catalog</font></strong></p>
<p><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><strong>Gifts
& Jewelry</strong></font><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><strong><br>
Furniture<br>
</strong></font><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><strong>Home
Accessories</strong></font></p>
<p> </p></td>
<td width="55%" rowspan="2" valign="top">
<div align="justify"><font size="2" face="Arial, Helvetica, sans-serif">WELCOME!
<em>"TEJAS" means Friends in our home state of Texas.</em> In
an increasingly impersonal world, we at TEJAS DESIGNS offer our customized
personal services from the smallest gift item to setting an exquisite
diamond ring. It is our desire to make you feel like "family"…we
are real people…we will respond to your questions and requests.
Our staff includes a certified jeweler and watchmaker. We set stones,
repair and/or resize jewelry and can even design that perfect custom piece
for you. We offer a full array of exquisite jewelry and gifts from "simply
basic" to "simply breath taking!" </font><font face="Arial, Helvetica, sans-serif">
</font></div>
<font face="Arial, Helvetica, sans-serif"> </font>
<p align="justify"><font size="2" face="Arial, Helvetica, sans-serif">In
the coming months, we will be increasing our online st</font><font size="2" face="Arial, Helvetica, sans-serif">ore
to include many items being requested by our clientele’. Jewelry
is a very individual statement of who you are. And any gift you give is
an expression of your thanks, appreciation or affection. Your selections
are made with much thought and caring.</font></p>
<p align="justify"><font size="2" face="Arial, Helvetica, sans-serif">We
are also expanding our product line to make personal products from the
Heart of Texas such as one of a kind barnwood furniture, items you can
only find in Texas and much more.</font></p>
<p align="justify"><font size="2" face="Arial, Helvetica, sans-serif">Please
take your time in perusing the pages of our site…if you don’t
see exactly what your heart desires…give us a call! Our personal
shopper is available to assis</font><font size="2" face="Arial, Helvetica, sans-serif">t.</font></p>
<font face="Arial, Helvetica, sans-serif">
<p><font size="2">Thanks for stopping by!</font></p>
</font></td>
<td width="26%" rowspan="2" valign="top">
<div align="center">
<table width="100%" border="0" cellpadding="2">
<tr>
<td>
<div align="center">
<p><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><strong>Featured
Specials</strong></font> </p>
<%
While ((Repeat1__numRows <> 0) AND (NOT Featured.EOF))
%>
<%
' Moving to random record - Steven Jones' Extension
If Not(Featured.bof and Featured.eof) Then
' reset the cursor to the beginning
If (Featured.CursorType > 0) Then
Featured.MoveFirst
Else
Featured.Requery
End If
Featured_totalrn = -1
Featured_totalrn = Featured.RecordCount ' ony works on some recordsets, but much faster
If (Featured_totalrn = -1) Then ' and if it didn't work, we still have to count the records.
' count the total records by iterating through the recordset
Featured_totalrn=0
While (Not Featured.EOF)
Featured_totalrn = Featured_totalrn + 1
Featured.MoveNext
Wend
' reset the cursor to the beginning
If (Featured.CursorType > 0) Then
Featured.MoveFirst
Else
Featured.Requery
End If
End If
' now do final adjustments, and move to the random record
Featured_totalrn = Featured_totalrn - 1
If Featured_totalrn > 0 Then
Randomize
Featured.Move Int((Featured_totalrn + 1) * Rnd)
End If
End If
' all done; you should always check for an empty recordset before displaying data
%>
<table width="100%" border="0">
<tr>
<td><p><img src="http://www.tejas-design.com/<%=(Featured.Fields.Item("product_picture").Value)%>"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><br>
$<%=(Featured.Fields.Item("product_price").Value)%><br>
<strong>More details</strong></font></p></td>
</tr>
</table>
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
Featured.MoveNext()
Wend
%>
<p> </p>
</div></td>
</tr>
</table>
</div></td>
</tr>
<tr>
<td valign="top">
<p><font face="Geneva, Arial, Helvetica, sans-serif"><strong><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Occassions</font></strong></font></p>
<p><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><strong><a href="/Products/engagement.asp">Engagement</a><br>
<a href="/Products/wedding.asp">Wedding</a><br>
</strong></font><font face="Verdana, Arial, Helvetica, sans-serif"><strong></strong></font>
</p></td>
</tr>
<tr>
<td colspan="3"> </td>
</tr>
<tr valign="top">
<td height="47" colspan="3">
<div align="center">
<p><font size="1" face="Verdana, Arial, Helvetica, sans-serif">©2004
- Tejas-Designs.com <br>
Henderson, Texas </font><br>
<a href="mailto:help@tejas-design.com"><font color="#330099" size="1" face="Verdana, Arial, Helvetica, sans-serif"><strong>Questions?
Email Us</strong></font></a></p>
</div></td>
</tr>
</table>
</body>
</html>
<%
Featured.Close()
Set Featured = Nothing
%>
<%
RS.MoveNext
Loop
RS.Close
Set RS = Nothing
OBJdbConnection.Close
Set OBJdbConnection = Nothing
%>
I changed hosting providers (HUGE mistake) and the new one does not have a page to register your DSNs as my old one did so I am going crazy trying to figure this out. Many thanks for your help in advance!!!
This part of the code they have given me to establish the connection
<%
Set OBJdbConnection = Server.CreateObject("ADODB.Connection")
OBJdbConnection.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.Mappath("/db/storedb.mdb") & ";"
SQLQuery = "SELECT * FROM products"
Set RS = OBJdbConnection.Execute(SQLQuery)
%>
<%
Do While Not RS.EOF
%>
but now that I have that going I just get another error...
Microsoft OLE DB Provider for ODBC Drivers error '80004005'
[Microsoft][ODBC Driver Manager] Data source name not found and no default driver specified
/index2.asp, line 23
Here is my full code:
<!--#include file="Connections/StoreDB.asp" -->
<%
Set OBJdbConnection = Server.CreateObject("ADODB.Connection")
OBJdbConnection.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.Mappath("/db/storedb.mdb") & ";"
SQLQuery = "SELECT * FROM products"
Set RS = OBJdbConnection.Execute(SQLQuery)
%>
<%
Do While Not RS.EOF
%>
<%
Dim Featured__MMColParam
Featured__MMColParam = "1"
If (Request("MM_EmptyValue") <> "") Then
Featured__MMColParam = Request("MM_EmptyValue")
End If
%>
<%
Dim Featured
Dim Featured_numRows
Set Featured = Server.CreateObject("ADODB.Recordset")
Featured.ActiveConnection = MM_StoreDB_STRING
Featured.Source = "SELECT * FROM products WHERE product_featured = " + Replace(Featured__MMColParam, "'", "''") + ""
Featured.CursorType = 0
Featured.CursorLocation = 2
Featured.LockType = 1
Featured.Open()
Featured_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index
Repeat1__numRows = 3
Repeat1__index = 0
Featured_numRows = Featured_numRows + Repeat1__numRows
%>
<html>
<head>
<title>Tejas Jewelry & Design - Home Page</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body link="#330099" vlink="#666666" alink="#330099">
<table width="100%" border="0" cellpadding="2" cellspacing="2">
<tr>
<td colspan="3" bgcolor="#330099"> <div align="center"><img src="/images/TejasLogo.gif" alt="Tejas Jewelry & Design" width="615" height="79"></div></td>
</tr>
<tr>
<td colspan="3"> <table width="100%" border="0">
<tr>
<td width="25%">
<div align="center"><font color="#330099" face="Geneva, Arial, Helvetica, sans-serif"><strong><a href="/index.asp">Home</a></strong></font></div></td>
<td width="25%">
<div align="center"><font color="#330099" face="Geneva, Arial, Helvetica, sans-serif"><a href="/Products.asp"><strong>Catalog</strong></a></font></div>
<div align="center"><font color="#330099" face="Geneva, Arial, Helvetica, sans-serif"></font></div></td>
<td width="25%">
<div align="center"><font color="#330099" face="Geneva, Arial, Helvetica, sans-serif"><strong><a href="/JewelryFAQ.asp">Jewelry
FAQ</a></strong></font></div></td>
<td width="25%">
<div align="center"><font color="#330099" face="Geneva, Arial, Helvetica, sans-serif"><strong><a href="/PersonalShopper.asp">Personal
Shopper</a></strong></font></div></td>
</tr>
</table></td>
</tr>
<tr>
<td colspan="3"> </td>
</tr>
<tr>
<td width="19%" height="123" valign="top"> <p><strong><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Catalog</font></strong></p>
<p><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><strong>Gifts
& Jewelry</strong></font><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><strong><br>
Furniture<br>
</strong></font><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><strong>Home
Accessories</strong></font></p>
<p> </p></td>
<td width="55%" rowspan="2" valign="top">
<div align="justify"><font size="2" face="Arial, Helvetica, sans-serif">WELCOME!
<em>"TEJAS" means Friends in our home state of Texas.</em> In
an increasingly impersonal world, we at TEJAS DESIGNS offer our customized
personal services from the smallest gift item to setting an exquisite
diamond ring. It is our desire to make you feel like "family"…we
are real people…we will respond to your questions and requests.
Our staff includes a certified jeweler and watchmaker. We set stones,
repair and/or resize jewelry and can even design that perfect custom piece
for you. We offer a full array of exquisite jewelry and gifts from "simply
basic" to "simply breath taking!" </font><font face="Arial, Helvetica, sans-serif">
</font></div>
<font face="Arial, Helvetica, sans-serif"> </font>
<p align="justify"><font size="2" face="Arial, Helvetica, sans-serif">In
the coming months, we will be increasing our online st</font><font size="2" face="Arial, Helvetica, sans-serif">ore
to include many items being requested by our clientele’. Jewelry
is a very individual statement of who you are. And any gift you give is
an expression of your thanks, appreciation or affection. Your selections
are made with much thought and caring.</font></p>
<p align="justify"><font size="2" face="Arial, Helvetica, sans-serif">We
are also expanding our product line to make personal products from the
Heart of Texas such as one of a kind barnwood furniture, items you can
only find in Texas and much more.</font></p>
<p align="justify"><font size="2" face="Arial, Helvetica, sans-serif">Please
take your time in perusing the pages of our site…if you don’t
see exactly what your heart desires…give us a call! Our personal
shopper is available to assis</font><font size="2" face="Arial, Helvetica, sans-serif">t.</font></p>
<font face="Arial, Helvetica, sans-serif">
<p><font size="2">Thanks for stopping by!</font></p>
</font></td>
<td width="26%" rowspan="2" valign="top">
<div align="center">
<table width="100%" border="0" cellpadding="2">
<tr>
<td>
<div align="center">
<p><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><strong>Featured
Specials</strong></font> </p>
<%
While ((Repeat1__numRows <> 0) AND (NOT Featured.EOF))
%>
<%
' Moving to random record - Steven Jones' Extension
If Not(Featured.bof and Featured.eof) Then
' reset the cursor to the beginning
If (Featured.CursorType > 0) Then
Featured.MoveFirst
Else
Featured.Requery
End If
Featured_totalrn = -1
Featured_totalrn = Featured.RecordCount ' ony works on some recordsets, but much faster
If (Featured_totalrn = -1) Then ' and if it didn't work, we still have to count the records.
' count the total records by iterating through the recordset
Featured_totalrn=0
While (Not Featured.EOF)
Featured_totalrn = Featured_totalrn + 1
Featured.MoveNext
Wend
' reset the cursor to the beginning
If (Featured.CursorType > 0) Then
Featured.MoveFirst
Else
Featured.Requery
End If
End If
' now do final adjustments, and move to the random record
Featured_totalrn = Featured_totalrn - 1
If Featured_totalrn > 0 Then
Randomize
Featured.Move Int((Featured_totalrn + 1) * Rnd)
End If
End If
' all done; you should always check for an empty recordset before displaying data
%>
<table width="100%" border="0">
<tr>
<td><p><img src="http://www.tejas-design.com/<%=(Featured.Fields.Item("product_picture").Value)%>"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><br>
$<%=(Featured.Fields.Item("product_price").Value)%><br>
<strong>More details</strong></font></p></td>
</tr>
</table>
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
Featured.MoveNext()
Wend
%>
<p> </p>
</div></td>
</tr>
</table>
</div></td>
</tr>
<tr>
<td valign="top">
<p><font face="Geneva, Arial, Helvetica, sans-serif"><strong><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Occassions</font></strong></font></p>
<p><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><strong><a href="/Products/engagement.asp">Engagement</a><br>
<a href="/Products/wedding.asp">Wedding</a><br>
</strong></font><font face="Verdana, Arial, Helvetica, sans-serif"><strong></strong></font>
</p></td>
</tr>
<tr>
<td colspan="3"> </td>
</tr>
<tr valign="top">
<td height="47" colspan="3">
<div align="center">
<p><font size="1" face="Verdana, Arial, Helvetica, sans-serif">©2004
- Tejas-Designs.com <br>
Henderson, Texas </font><br>
<a href="mailto:help@tejas-design.com"><font color="#330099" size="1" face="Verdana, Arial, Helvetica, sans-serif"><strong>Questions?
Email Us</strong></font></a></p>
</div></td>
</tr>
</table>
</body>
</html>
<%
Featured.Close()
Set Featured = Nothing
%>
<%
RS.MoveNext
Loop
RS.Close
Set RS = Nothing
OBJdbConnection.Close
Set OBJdbConnection = Nothing
%>
