Jeg kan desværre ikke få det til at virke selv om jeg sætter det ind som du skrev. ( jeg er amatør)
Når jeg bruger tagwallen som den er fra starten og jeg skriver en besked og trykker på send får 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 0x978 Thread 0x9c4 DBC 0x20bf004 Jet'.
/tag/indsaet.asp, line 8
----------------------------
skriver jeg stien ind får jeg også fejlen. hvad gør jeg galt??
Filen tagwall.mdb ligger i mappen database.
Hvis jeg uploader hele mappen på en af de gratis hjemmesider virker den fint med tagwall.mdb i samme mappe. Det er kun når jeg bruger min domæneplads den ikke virker.
Undskyld det lange brev.
--------------------------------
Filen tagwall
<html>
<head>
<title>Tagwall</title>
<link rel="stylesheet" href="style.css">
</head>
<body>
Tagwall - <a href="tilfoj.asp">Skriv indlæg</a> - <a href="Admin/index.asp">Admin</a><br><br>
<center>
</body>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("tagwall.mdb")
Conn.Open DSN
strSQL = "Select * from Tagwall Order by Id desc"
Set rs = Conn.Execute(strSQL)
If not rs.eof then
do while not rs.eof
Response.Write "<b>Navn:</b> " & rs("Navn") & "<br>"
strEmail = rs("Email")
If StrComp(strEmail, "Ingen e-mail", 1 ) = 0 Then %>
<b>E-mail:</b> Ingen e-mail<br>
<%
else %>
<b>E-mail:</b> <a href="mailto:<% = strEmail %>"><% = strEmail %></a><br>
<%
End If
strHjemmeside = rs("Hjemmeside")
If StrComp(strHjemmeside, "Ingen hjemmeside", 1 ) = 0 Then %>
<b>Hjmmeside:</b> Ingen hjemmeside<br>
<%
else %>
<b>Hjemmeside:</b> <a href="<% = strHjemmeside %>"><% = strHjemmeside %></a><br>
<%
End If
Response.Write "<b>Dato:</b> " & rs("Dato") & "<br>"
Response.Write "<b>Besked:</b><br><br>" & rs("Besked") & "<br><br>"
rs.movenext
loop
else
' Denne besked kan du rette hvis du ikke vil have der skal stå Ingen beskeder! hvis der ingen beskeder er.
Response.Write "Ingen beskeder!"
end if
Conn.Close
Set Conn = Nothing
%>
</center>
</html>
----------------------------------------------------------
Filen indsæt
<%
' Der skal ikke rettes i denne fil.
Conn = "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("tagwall.mdb") & ";"
Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open Conn
Set RS = Server.CreateObject("ADODB.Recordset")
RS.Open "SELECT * FROM tagwall", Conn, 1, 3
Function RemoveHTML(strContent)
Do
pos = 1
tmpBegin = InStr(pos,strContent,"<")
If tmpBegin > 0 Then
pos = tmpBegin
If LCase(mid(strContent,tmpBegin,7)) = "<script" Then
tmpEnd = Instr(tmpBegin,LCase(strContent),"</script>")
strContent = Left(strContent,tmpBegin-1) & Right(strContent,Len(strContent)-tmpEnd-8)
ElseIf LCase(mid(strContent,tmpBegin,2)) = Chr(60) & "%" Then
tmpEnd = Instr(tmpBegin,LCase(strContent),"%" & Chr(62))
strContent = Left(strContent,tmpBegin-1) & Right(strContent,Len(strContent)-tmpEnd-3)
Else
tmpEnd = InStr(pos,strContent,">")
If tmpEnd > 0 Then
strContent = Left(strContent,tmpBegin-1) & Right(strContent,Len(strContent)-tmpEnd)
Else
strContent = Left(strContent,tmpBegin-1)
Exit Do
End If
End If
Else
Exit Do
End If
Loop
RemoveHTML = strContent
End Function
dim Navn
Navn = Request.Form("Navn")
dim Besked
Besked = Request.Form("Besked")
If Navn = "" AND Besked = "" Then
Response.Redirect "tilfoj.asp?fejl=1"
Elseif Navn = "" Then
Response.Redirect "tilfoj.asp?fejl=Navn"
Elseif Besked = "" Then
Response.Redirect "tilfoj.asp?fejl=Besked"
End if
strNavn = RemoveHTML(Request.Form("Navn"))
strEmail = RemoveHTML(Request.Form("Email"))
If StrComp(strEmail, "", 1 ) = 0 Then strEmail = "Ingen e-mail"
strHjemmeside = RemoveHTML(Request.Form("Hjemmeside"))
If StrComp(strHjemmeside, "http://", 1 ) = 0 Then strHjemmeside = "Ingen hjemmeside"
strDato = Now
strBesked = RemoveHTML(Request.Form("Besked"))
strSQL = "Insert into Tagwall (Navn, Email, Hjemmeside, Dato, Besked) values('"& strNavn &"', '"& strEmail &"', '"& strHjemmeside &"', '"& strDato &"', '"& strBesked & "')"
Conn.Execute(strSQL)
Conn.Close
Set Conn = Nothing
Response.Redirect "tagwall.asp"
%>