Tjena
Detta funkade på linux serven men inte på IIS servern ?

Felkod

Microsoft JET Database Engine error '80004005'
Operation must use an updateable query.

/nyheter/gastbok.asp, line 194

Sidan gastbok.asp
<%
'##############ÄNDRA DETTA#############################
InlaggPerSida = 10 ' Antal nyhetsrubriker per sida
INC = "index.asp" ' Sidan du inkluderar gastbok.asp i
db = Server.MapPath("db/gastbok.mdb") ' Databasens sökväg
'#####################################################

Function Link(strText)
strText = Server.HTMLEncode(strText)

Set regExp = New regexp

regExp.Global = true
regExp.IgnoreCase = true

regExp.Pattern = "(http://|www)([\S]*)"
strText = regExp.Replace(strText,"$1$2")

regExp.Pattern = "(ftp://)([\S]*)"
strText = regExp.Replace(strText,"$1$2")

regExp.Pattern = "([\S]*@[\S]*[.se|.com|.nu|.net|.org])"
strText = regExp.Replace(strText,"$1")

regExp.Pattern = "([.|,|!|?|:|;|)|\|&]]*)</a> "
strText = regExp.Replace(strText,"</a>$1 ")

regExp.Pattern = "([.|,|!|?|:|;|)|\|&]]*)"" target=""_blank"">([^<]*)</a>"
strText = regExp.Replace(strText,""">$2</a>")

strText = Replace(Trim(strText),vbCrLf, "<br>")
strText = Replace(Trim(strText),"http://http://", "http://")

Link = strText ' Skriver ut texten, uppdelad och fin!

End Function

Function Fixa(str)
Fixa = Replace(Trim(str),"'","''")
End function

Function FixDigits(Value,Digits)
FixDigits = Space(Digits) & Value
FixDigits = Right(FixDigits,Digits)
FixDigits = Replace(FixDigits," ","0")
End Function%>

<!--
##########################################
Gruvsjo Gästbok v3
Åsa Gruvsjö ©
www.gruvsjo.com
Asa@gruvsjo.com

Fri att använda om ni låter copyrightkoden stå kvar!
##########################################
-->

<script src="js.js"></script>

<table cellpadding="1" cellspacing="0" width="100%" border="0">

<%Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & db

If Request.Querystring("do")= "" Then%>

<table border="0" width="400" align="center" cellpadding="3" cellspacing="0">
<form method="post" action="<%=INC%>?do=add" name="gastbok" onSubmit="return Gb()">
<tr>
<td colspan="2" style="border-bottom: 1px solid #000000"><font size="2"><b>Gästboken</b></font></td></tr>
<tr>
<td width="80"><b>Ditt namn:</b><br><input type="text" name="namn" size="25"></td>
<td><b>Rubrik:</b><br><input type="text" name="rubrik" size="25"></td>
</tr>
<tr>
<td><b>Din e-mail:</b> valfritt<br><input type="text" name="mail" size="25"></td>
<td><b>Hemsida:</b> valfritt<br><input type="text" name="url" size="25"></td>
</tr>
<tr>
<td valign="top" colspan="2"> <b>Meddelande:</b><br><textarea name="msg" cols="60" rows="8"></textarea></td>
</tr>
<tr>
<td colspan="2"><input type="submit" value="Posta inlägg"></td>
</tr>
</form>
</table>

<%Set Recset = Server.CreateObject("ADODB.Recordset")

' Sidscriptet är nerladdat från http://www.fatmilk.nu/
' Skrivet av Ludvig "geek" Lindblom
' geek@fatmilk.nu

Sidan = Request.QueryString("next")
If Sidan = "" then
sida = 1
Else
sida = Sidan
End If

With RecSet
.CursorLocation = 3
.CacheSize = InlaggPerSida
End With

SQL = "Select * From gastbok Order By datum desc"
RecSet.Open SQL, Conn

If RecSet.EOF Then%>
<br>
<table border="0" width="400" align="center" cellpadding="3" cellspacing="0">
<tr>
<td><i>Inget har skrivit i gästboken.</i></td>
</tr>
</table>
<%Else%>
<br>
<%With RecSet
.MoveFirst
.PageSize = InlaggPerSida
.AbsolutePage = sida
End With

Sidor = RecSet.PageCount
If Sidor > 1 Then%>

<table border="0" width="400" align="center" cellpadding="3" cellspacing="0" style="border: 1px solid #000000">
<tr>
<td valign="top" bgcolor="#98A9E4">
<%For Sid = 1 To Sidor
If (Int(Sid)) = (Int(sida)) Then%><b><%=FixDigits(Sid,2)%></b><%Else%> <%=FixDigits(Sid,2)%> <%End If
Next%>
</td>
</tr>
</table>
<br>
<%End If
X = 0
Do While Not RecSet.EOF And X < RecSet.PageSize%>
<table border="0" width="400" align="center" cellpadding="3" cellspacing="0" style="border: 1px solid #000000">
<tr>
<td bgcolor="#98A9E4" width="300"><b><%=Recset("rubrik")%></b> | <%=Recset("namn")%></td><td align="right" bgcolor="#98A9E4" width="100"><img src="bilder/klocka.gif" border="0" alt="<%=FormatDateTime(RecSet("datum"),2)%> (<%=FormatDateTime(RecSet("datum"),4)%>)"> <%If RecSet("url") <> "" Then%>" target="_blank">"> <%End If%><%If RecSet("mail") <> "" Then%>">"><%End If%></td>
</tr>
<tr>
<td colspan="2"><%=Link(RecSet("msg"))%></td>
</tr>
<%If Recset("svar") <> "" Then%>
<tr>
<td colspan="2">&nbsp;</td>
</tr>
<tr>
<td colspan="2"><b>Svar:</b> <i><%=Replace(RecSet("svar"), vbCrLf, "<br>")%></i></td>
</tr>
<%End If%>
</table>
<br>
<%X = X+ 1
Recset.MoveNext
Loop
If Sidor > 1 Then%>

<table border="0" width="400" align="center" cellpadding="3" cellspacing="0" style="border: 1px solid #000000">
<tr>
<td valign="top" bgcolor="#98A9E4">
<%For Sid = 1 To Sidor
If (Int(Sid)) = (Int(sida)) Then%><b><%=FixDigits(Sid,2)%></b><%Else%> <%=FixDigits(Sid,2)%> <%End If
Next%>
</td>
</tr>
</table>

<%End If
Recset.Close
Set Recset = Nothing
End If

ElseIf Request.QueryString("do") = "add" Then

Namn = Request.Form("namn")
Rubrik = Fixa(Request.Form("rubrik"))
Mail = Request.Form("mail")
Msg = Fixa(Request.Form("msg"))
Ip = Request.Servervariables("REMOTE_ADDR")
Url = Request.Form("url")
If Url <> "" Then
If Left(Url,7) = "http://" Then
Url = Url
Else
Url = "http://" & Url
End If
End If

Conn.Execute("Insert Into gastbok(namn, mail, url, msg,ip, rubrik) Values('"& namn &"','"& mail &"','"& url &"','"& msg &"','"& Ip &"','"& rubrik &"')")

Response.Redirect INC
End If

Conn.Close
Set Conn=Nothing%>

</table>

De enda som är ändrat är sökväg till databasen förut DSN nu DSN less.

Trodde att det skulle funka bätte med IIS servern mot ASP!!!

/Tobbe

Försök att ge IUSR_<Machinename> (Asp) eller ASPNET (Asp.Net) skrivrättigheter till din Access Databas

Tjena

Va hur gör jag det?

Lite dum i huvet!!!

Sök på skrivrättigheter så hittar du inlägg om det, har diskuterats förut.

Nu har jag förståt att jag skall lägga databaserna i katalogen DB som ligger utaför min katalog public_Html för minna sidor.

men hur skapar jag en sökväg till databaserna

Server.MapPath("db/gastbok.mdb") funkar inte så bra.

Hur skall jag göra hjälp mig.

Du kan gå upp i katalogstrukturen med ../ testa med det.
Du kan ju även skriva ut sökvägen till databasen och hårdkoda den om du vill, men då är du låst till den när/om du flyttar om i strukturen.

//Anna-Karin

Tjena!

Nu funkar det hurra:-)

Så här blev det sökväg "../../../db/xxxx.mdb"

Tja och tack

Tobbe

>
>Lite dum i huvet!!!
>

Det vägrar jag att tro!

Det tjänar inget på att nervärdera dig själv.
Tala bara om att du inte känner till hur man göra och/eller att du är nybörjare. Så har vi förståelse och hjälper dig gärna.