Hvorfor virker dette ikke?
Følgende count har virket!! Men nu har jeg lavet et logindsystem som kræver følgende <% Option Explicit %> og så nu virker nedenstående DNSless ikke.En som kan hjælpe mig?
Fejlen:
Microsoft VBScript runtime error '800a01f4'
Variable is undefined: 'strDSN'
/Lister/Login02/main.asp, line 58
Kode:
<% Option Explicit %>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>Prækvalifikation/konkurrence</title>
<META HTTP-EQUIV="Pragma" CONTENT="no-cache">
<META HTTP-EQUIV="Cache-Control" CONTENT="no-store">
<!--Meta tagsne gør at siden ikke bliver chachet-->
<style type="text/css">
<!--
-->
</style><link rel="stylesheet" href="lister.css">
</head>
<!--#include file="header.inc"-->
<body>
<strong><font style="font-size: 12px;">Hovedside</font></strong><br>
<br>
<%
Dim dbData, rsData, SQL, Path
Set dbData = Server.CreateObject("ADODB.Connection")
Path = "DBQ=" & server.mappath("db.mdb")
dbData.Open "DRIVER={Microsoft Access Driver (*.mdb)};"&Path
Set rsData = Server.CreateObject("ADODB.Recordset")
SQL = "SELECT * FROM Data WHERE idUser=" & Session("idUser")
rsData.Open SQL, dbData
'//Henter brugeren data med Sessionen idUser
%>
Velkommen <b><%=rsData("FirstName")%> <%=rsData("LastName")%></b><br>Du er nu logget ind
<br>
<a href="logout.asp">Log af</a>
<br>
<br>
<strong>INSTRUKTION</strong><br>
For at prækvalifikations- og konkurrencesystemet skal virke rigtigt er der følgende ting som skal overholdes:
<ul>
<li>Alle felter <u>skal</u> udfyldes. Hvis de ikke skal indeholde noget så skriv - (bindestreg)</li>
<li>Datoer skrives dd-mm-yyyy og kan ikke være tomme.</li>
</ul>
<strong>OPRET LISTE</strong><br>
Liste 1 <a href="Liste1/opretliste1.asp">HER</a> (Kommende prækvalifikationer)<br>
Liste 2 <a href="Liste2/opretliste2.asp">HER</a> (Aktuelle prækvalifikationer)<br>
Liste 3 <a href="Liste3/opretliste3.asp">HER</a> (Konkurrencer)<br>
<br>
<br>
<strong>SE LISTER</strong><br>
Kommende prækvalifikationer:<br>
Liste 1 <a href="Liste1/visliste1.asp">HER</a>
<%
'COUNT PÅ POSTER I LISTE 1 STARTER HER
' DSNLess forbindelse til databasen
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("db.mdb")
Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open strDSN
' Tæller antal poster i tabellen Links
strSQL = "SELECT COUNT(ID) AS Antal FROM liste1"
Set rs = myConn.Execute(strSQL)
Response.Write "<font color=""#ff0000"">" & rs("Antal") & "</font>"
' Rydder op efter os
myConn.Close
Set myConn = Nothing
'COUNT PÅ POSTER I LISTE 1 SLUTTER HER
%> poster.
OSV....
Fomse:-)
