Hej alle!
Jeg er igang med at lave en hjemmeside til en clan..
Som alle andre hjemmeside skal siden jo gerne have en gæstebog..
Når jeg plejer at lave en gæstebog, virker den !
Men denne her gang fik jeg denne fejl:
Microsoft OLE DB Provider for ODBC Drivers error '80004005'
[Microsoft][ODBC Microsoft Access Driver]General error Unable to open registry key 'Temporary (volatile) Jet DSN for process 0xcb0 Thread 0x8e4 DBC 0xde51cec Jet'.
/clan-us/gb/default.asp, line 68
Kan ikke se hvor fejlen er. I følge notesblok er felt 68:
Conn.Open DSN
her er hele filen
<html>
<head>
<link rel="stylesheet" type="text/css" href="../style.css">
<script language="JavaScript">
<!--
function formCheck(formobj){
// Enter name of mandatory fields
var fieldRequired = Array("navn", "besked");
// Enter field description to appear in the dialog box
var fieldDescription = Array("navn", "besked");
// dialog message
var alertMsg = "Udfyld venligst følgende felter:\\n";
var l_Msg = alertMsg.length;
for (var i = 0; i < fieldRequired.length; i++){
var obj = formobj.elements[fieldRequired[i][/i]];
if (obj){
switch(obj.type){
case "select-one":
if (obj.selectedIndex == -1 || obj.options[obj.selectedIndex].text == ""){
alertMsg += " - " + fieldDescription[i][/i] + "\\n";
}
break;
case "select-multiple":
if (obj.selectedIndex == -1){
alertMsg += " - " + fieldDescription[i][/i] + "\\n";
}
break;
case "text":
case "textarea":
if (obj.value == "" || obj.value == null){
alertMsg += " - " + fieldDescription[i][/i] + "\\n";
}
break;
default:
}
if (obj.type == undefined){
var blnchecked = false;
for (var j = 0; j < obj.length; j++){
if (obj[j].checked){
blnchecked = true;
}
}
if (!blnchecked){
alertMsg += " - " + fieldDescription[i][/i] + "\\n";
}
}
}
}
if (alertMsg.length == l_Msg){
return true;
}else{
alert(alertMsg);
return false;
}
}
// -->
</script>
</head>
<body>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("../db/database.mdb")
Conn.Open DSN
strSQL = "Select * from tagwall Order by id desc"
Set rs = Conn.Execute(strSQL)
%>
<form name="write" method="post" method="send" action="send.asp" onsubmit="return formCheck(this);">
<table style="border:none;">
<tr>
<td>Navn:</td><td> <input type="text" name="navn"></td>
</tr>
<tr>
<td>Mail:</td><td><input type="text" name="mail"></td>
</tr>
<tr>
<td>Tag:</td><td><input type="text" name="besked"></td>
</tr>
<tr>
<td></td><td><input type="submit" value="Tag"> <input type="reset" value="Slet alt"></td>
</tr>
</table>
</form>
<%
Do
navn = Server.HTMLEncode(rs("navn"))
mail = Server.HTMLEncode(rs("mail"))
besked = Server.HTMLEncode(rs("besked"))
%>
<table width="98%">
<tr>
<td class="gbet">
<b><a href="mailto:<%=mail%>"><%=navn%></a></b>
</td>
</tr>
<tr>
<td class="gbto"><%=besked%></td>
</tr>
</table>
<%
rs.MoveNext
Loop While Not rs.EOF
Conn.Close
Set Conn = Nothing
%>
</body>
</html>
Nogen der kan se fejlen ??
Linje 68 er lige under der hvor connection til databasen bliver oprettet !..
Jeg kan ikke se nogen fejl, og jeg har prøvet at ligge db'en i min udbyders mappe kaldet 'db' .. Det virker heller ikke ..
Jeg vil blive meget glad hvis nogen kunne komme med et svar der førte til løsningen..
Med venlig hilsen:
Daniel Andersen ..
[Redigeret d. 21/07-05 21:42:19 af Daniel Andersen]