Erro Na Pagina

[varela]

BOM DIA PESSOAL

NA MINHA PAGINA ESTA DANDO ESSE ERRO E não SEI COMO ARRUMAR POIS não SEI MEXER QUASE NADA EM ASP POR FAVOR ME AJUDEM

ESSE É O ERRO:

Microsoft OLE DB Provider for ODBC Drivers error '80004005'

[Microsoft][ODBC Driver Manager] Data source name not found and no default driver specified

/inc/right.asp, line 28

E A PAGINA RIGTH.ASP É ESSA

<table cellpadding="0" cellspacing="0" width="166" border="0">
	<tr>
  <td colspan=2><img src="images/featured_header.gif?a=1"></td>
	</tr>
	<tr>
  <td><a href="shopexd.asp?id=1994"><img src="images/featured_1.gif?a=1" border=0></a></td>
  <td><a href="shopexd.asp?id=1909"><img src="images/featured_2.gif?a=1" border=0></a></td>
	</tr>
	<tr>
  <td colspan=2><a href="shopexd.asp?id=1955"><img src="images/featured_3.gif?a=1" border=0></a></td>
	</tr>
	<tr>
  <td colspan=2><a href="shopexd.asp?id=1972"><img src="images/featured_4.gif?a=1" border=0></a></td>
	</tr>
	<tr>
  <td colspan=2><img src="images/f_bodyjewelry.gif?a=1" border=0></td>
	</tr>
</table>
<br>
<%
	Dim Conn, create_best, sql_best, rs_best, best_counter, Cat_id_best, today, couponList, couponListArr, sql0, rs0, sql1, rs1, inserSql, sql2, rs2, rs3, i 

	Cat_id_best = Session("Cat_id")
	if Cat_id_best="" then Cat_id_best=1
	if not isObject(Conn) then
  create_best=true
  Set Conn = Server.CreateObject("ADODB.Connection")
  Conn.Open "DSN=SHOP"
'  Conn.Open "DSN=SHOPMX"
	else
  create_best=false
	end if

	today = Date()
	if Application("bestsellers_date")<>today then
  Conn.Execute "DELETE * from bestsellers"
  couponList = ",,"
  sql0 =  "SELECT couponproducts FROM COUPONS where couponname='More than 20'"
  set rs0 = server.CreateObject ("ADODB.RecordSet")
  rs0.Open sql0 , Conn , 3 , 3
  if not rs0.EOF then
  	set rs3 = server.CreateObject ("ADODB.RecordSet")
  	couponListArr = Split(rs0.Fields("couponproducts"),",")
  	for i = 0 to UBound(couponListArr)
    rs3.Open "SELECT higherproductid FROM products WHERE catalogid="&couponListArr(i) , Conn , 3 , 3
    if rs3.Fields("higherproductid")<>"" then 
    	couponList = couponList & rs3.Fields("higherproductid") & ","
    else
    	couponList = couponList & couponListArr(i) & ","
    end if
    rs3.Close()
  	Next
  	set rs3 = nothing  
  end if
  rs0.Close()
  set rs0 = nothing  

  sql1 =  "SELECT Sum(oitems.numitems) AS SumOfnumitems, products.higherproductid "&_
    "FROM oitems INNER JOIN products ON oitems.catalogid = products.catalogid "&_
    "GROUP BY products.higherproductid "&_
    "HAVING (((products.higherproductid) Is Not Null)) "
  set rs1 = server.CreateObject ("ADODB.RecordSet")
  rs1.Open sql1 , Conn , 3 , 3
  Do while not rs1.EOF
  	if inStr(couponList,","&rs1.Fields("higherproductid")&",")<1 then
    inserSql = "INSERT into bestsellers (productid,quantity) VALUES ("&CInt(rs1.Fields("higherproductid"))&","&rs1.Fields("SumOfnumitems")&")"
    Conn.Execute inserSql
  	end if
  rs1.MoveNext()
  Loop
  rs1.Close()
  set rs1 = nothing
  
  sql2 =  "SELECT Sum(oitems.numitems) AS SumOfnumitems, oitems.catalogid "&_
    "FROM oitems INNER JOIN products ON oitems.catalogid = products.catalogid "&_
    "GROUP BY products.higherproductid, oitems.catalogid "&_
    "HAVING (((products.higherproductid) Is Null))"
  set rs2 = server.CreateObject ("ADODB.RecordSet")
  rs2.Open sql2 , Conn , 3 , 3
  Do while not rs2.EOF
  	if inStr(couponList,","&rs2.Fields("catalogid")&",")<1 then
    inserSql = "INSERT into bestsellers (productid,quantity) VALUES ("&rs2.Fields("catalogid")&","&rs2.Fields("SumOfnumitems")&")"
    Conn.Execute inserSql
  	end if
  rs2.MoveNext()
  Loop  
  rs2.Close()
  set rs2 = nothing
    
  Application("bestsellers_date")=today
	end if

	sql_best =  "SELECT bestsellers.productid, bestsellers.quantity, prodcategories.intcategoryid, products.ccode, products.cname, products.cdescription, products.cprice, products.cimageurl, products.retailprice "&_
    "FROM (bestsellers INNER JOIN prodcategories ON bestsellers.productid = prodcategories.intcatalogid) INNER JOIN products ON prodcategories.intcatalogid = products.catalogid "&_
    "WHERE (((prodcategories.intcategoryid)="& Cat_id_best &")) "&_
    "ORDER BY bestsellers.quantity DESC"

	set rs_best = server.CreateObject ("ADODB.RecordSet")
	rs_best.Open sql_best , Conn , 3 , 3

IF not rs_best.EOF then
%>
<form name=form1 method=Post action="shopproductselect.asp">
<table cellpadding="0" cellspacing="0" width="166" border="0">
	<tr>
  <td rowspan=7 background="../images/seller_left.gif"><img src="../images/spacer.gif" width="4" height="1" alt="" border="0"></td>
  <td align=center valign=top><img src="images/best_seller_2.gif?a=1" width=155></td>
  <td rowspan=7 background="../images/seller_right.gif"><img src="../images/spacer.gif" width="7" height="1" alt="" border="0"></td>
	</tr>
<%
	best_counter=0
	Do while not rs_best.EOF and best_counter<5
%>
	<tr>
  <td align=center valign=top>
  	<a href="shopexd.asp?id=<%=rs_best.Fields("productid")%>"><img border="0" src="<%=rs_best.Fields("cimageurl")%>?a=1" alt="<%=rs_best.Fields("cname")%>" width="104px" height="87px"></a>
  	<br>
  	<font class="WHITEB8"><font color="black"><%=rs_best.Fields("cname")%></font>
  	<br>
  	<nobr><font class="WHITEB7">Retail Price: <strike style="color:orange"><%=rs_best.Fields("retailprice")%></strike></font></nobr>
  	<br>
  	Our Price: <font color="black"><%=rs_best.Fields("cprice")%></font>
  	<br><br>
  </td>
	</tr>
<%
	best_counter=best_counter+1
	rs_best.MoveNext()
	Loop
%>
	<tr height="5px" bgcolor=black>
  <td bgcolor=black><img src="images/spacer.gif"></td>
	</tr>
</table>
<%
ELSE
%>
<br>
<table cellpadding="0" cellspacing="0" width="166" border="0">
	<tr>
  <td colspan=2><img src="images/best_seller.gif?a=1"></td>
	</tr>
	<tr>
  <td colspan=2><a href="shopexd.asp?id=509"><img src="images/bs_1.gif?a=1" border=0></a></td>
	</tr>
	<tr>
  <td colspan=2><a href="shopexd.asp?id=800"><img src="images/bs_2.gif?a=1" border=0></a></td>
	</tr>
	<tr>
  <td><a href="shopexd.asp?id=1187"><img src="images/bs_3.gif?a=1" border=0></a></td>
  <td align=left><a href="shopexd.asp?id=2008"><img src="images/bs_4.gif?a=1" border=0></a></td>
	</tr>
	<tr>
  <td colspan=2><a href="shopexd.asp?id=59"><img src="images/bs_5.gif?a=1" border=0></a></td>
	</tr>
	<tr>
  <td><a href="shopexd.asp?id=324"><img src="images/bs_6.gif?a=1" border=0></a></td>
  <td align=left><a href="shopexd.asp?id=390"><img src="images/bs_7.gif?a=1" border=0></a></td>
	</tr>
	<tr>
  <td><a href="shopexd.asp?id=1100"><img src="images/bs_8.gif?a=1" border=0></a></td>
  <td align=left><a href="shopexd.asp?id=859"><img src="images/bs_9.gif?a=1" border=0></a></td>
	</tr>
</table>
<%
END IF	
	rs_best.Close()
	set rs_best = nothing
	if create_best then
  Conn.Close ()
  set Conn = nothing	
	end if
%>
</form>

A LINHA DO ERRO É ESSA Conn.Open "DSN=SHOPMX"

ESPERO QUE vocês ME AJUDEM POIS EU não SEI MEXER EM ASP, APENAS EM PHP então ESTOU NUMA PRAIA NOVA

VALEWWWWWW A TODOS

[Principe]

é.. você baixou esse script pronto na net e ta todo virado,...

mas se você não sabe mexer em asp não adianta falar nada, o erro é grotesco, você nem ta especificando o caminho pro banco de dados, melhor você baixar uns tutos na net antes de script's prontos, assim você vai direto no problema.

Microsoft OLE DB Provider for ODBC Drivers error '80004005' 

[Microsoft][ODBC Driver Manager] Data source name not found and no default driver specified 

traduzindo : banco de dados não encontrado e nenhum driver foi especificado .

[varela]

ESSE É O PROBLEMA ESSE não é UM SCRIPT PRONTO, ISSO é UMA SITE DE LOJA VIRTUAL AONDE O TRAMPO QUE TRABALHO TEM SÓ QUE ninguém MEXE EM ASP E SABENDO QUE MEXO EM PHP ELES PEDIRAM PRA MIM DA UMA OLHADA só PRA MODIFICAR O LAYOUT E AS IMAGENS ISSO FOI FEITO ONTEM ANTES DE IR EMBORA ESTAVA TUDO OK MAIS HJ QD ACESSEI DEU ESSE ERRO, ISSO é MUITO ESTRANHOOOOOOOOOOO

[dark0]

isso ae é caminho do banco de dados com problema

onde está a parte que conexta ao banco?

[varela]

ESSE é A CONEXAO DO BANCO

<%
' VP-ASP Shopping Cart Database Configuration 5.00
'const xDatabase="DSN=SHOP"  'Database name
const xDatabase="DSN=SHOPMX"  'Database name
const xdblocation=""           'location of database relative to VP-ASP files
const xdatabasetype="ODBC"         ' database type; Drive, Default Access, can be  ODBC, SQLServer
const xSQLUser=""              ' SQL Server user
const xSQLPwd=""               ' SQL Server password
const xSQLServer=""            ' SQL Server name or IP address

'
const xconfigtable="configuration"
const xproductmatch=""         ' display products matching these
const xshopid="shop500"     
'
const xordernumber="9660"
%>

AONDE EU COLOCO ELE NO CODIGO ????

POIS ESSE CODIGO ESTA EM OUTRA PAGINA E NESSA DAI DO CODIGO QUE ESTA DANDO ERRO não TEM NENHUM INCLUDE

[Cerebro]

olha só seu servidor tem suporte spl sever???

porque o que está acontecendo é que esta dizendo que não existe o bd...