PDA

Vollständige Version anzeigen : DSN-Problem bereitet mir Schwierigkeiten


Gast
11.06.2003, 12:29
Hallo!

Hab gerade eine Interessante Code erhalte, um Links darzustellen.

Doch ich habe Probleme mit der Datenbankerkennung.

Hier der Code

<% Option Explicit
Dim strSiteID,strSiteDescription,strURL,strImageName,intCount
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">

<html>
<head>
<title>Site of the Day</title>
</head>
<body>
<%
'Dim strSiteID,strSiteDescription,strURL,strImageName,intCount
Dim intDays,intStart,rsSite,rsTopNumber,objConn
set objConn =server.createobject("ADODB.connection")
objConn.open "DSN=advteamdsn"

set rsTopNumber=objConn.execute("select count(*) from tblSites")
intCount = rsTopNumber(0)
rsTopNumber.close

set rsTopNumber=Nothing
intDays = DatePart("y",now)

intStart = intdays Mod intCount
intStart = intStart + 1

Dim sqlSELsite,ObjRSSel

sqlSELsite = "SELECT fldSiteID,fldSiteDescription,fldURL,fldImageName FROM tblSites WHERE fldSiteID = '" & intStart & "'"
Set ObjRSSel = Server.CreateObject("ADODB.Recordset")
ObjRSSel.Open sqlSELsite,objConn

strSiteID = ObjRSSel(0)
strSiteDescription = ObjRSSel(1)
strURL = ObjRSSel(2)
strImageName = ObjRSSel(3)

%>

<table width="100%" border="0" cellspacing="0" cellpadding="4" bgcolor="#FFFFFF">

<tr bgcolor="#FFCCCC" valign="top">

<td height="20">

<div align="center"><font face="Arial, Helvetica, sans-serif" color="#FFFFFF" size="2"><b>stylusinc Featured
Site </b></font></div>
</td>
</tr>
<tr valign="top">
<td height="22">
<p><font face="Arial, Helvetica, sans-serif" size="2"><%= strSiteDescription %></font></p>
</td>
</tr>
<tr valign="top">
<td height="22">
<div align="center"><a href='<%=strURL%>'><img src="<%=strImageName%>" width="150" height="100" border="0"></a></div>
</td>
</tr>
<tr valign="top">

<td height="22"><font size="1" face="Arial, Helvetica, sans-serif">Note: We
get no money from the featured site item. We only feature sites we think
you'll enjoy and maybe want to bookmark. <br>
</font></td>
</tr>
</table>
<% ObjRSSel.close
Set ObjRSSel = Nothing
Set objConn = Nothing

%>

Mit der DSN habe ich meine Probleme, ich habe meine DB sonst so geöffnet:

set Conn = Server.CreateObject("ADODB.Connection")
set rs = Server.CreateObject("ADODB.Recordset")

strPfadDB = Server.MapPath("sod.mdb")
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strPfadDB


Doch das funktioniert jetzt nicht.

Kann mir einer helfen?

Danke

Al3x
13.06.2003, 09:52
Hallo Gast,

Du hast den Code angegeben den du davor für das Öffnen der DB Benutzt hast, was heist davor ? anderer Server, lokaler Server etc.. und wo ist die Seite nun?
Denn mit funktioniert jetzt nicht mehr, kann man wirklich nicht viel anfangen, evtl. Fehlermeldung oder dergleichen wäre sehr Hilfreich.

gruß
Alex