February 16, 2004
![sp_UserOfflineSmall](https://nordichardware.se/wp-content/sp-resources/forum-themes/reboot/images/darkpack/sp_UserOfflineSmall.png)
Min GB som jag har på sidan funkar inte.
Använder mig av ASP och kör det på dator genom IIS!
När jag ska skicka inlägget så kommer detta upp:
Sidan kunde inte visas
Det har uppstått problem med sidan du försökte nå. Den kunde inte visas.
--------------------------------------------------------------------------------
Prova att:
Klicka på knappen Uppdatera, eller försök igen senare.
öppna hemsidan och titta efter länkar till informationen du söker.
HTTP 500.100 - Internt serverfel - ASP-fel
Internet Information Services
--------------------------------------------------------------------------------
Teknisk information (för supportpersonal)
Feltyp:
Microsoft JET Database Engine (0x80004005)
Operationen måste använda en fråga som kan uppdateras.
/hemsidan/gastbok/gastbok.asp, line 186
Webbläsare:
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1)
Sida:
POST 64 bytes to /hemsidan/gastbok/index.asp
POST Data:
namn=Daniel+Bergstrand&rubrik=Hejsan%21&mail=&url=&msg=Hejsan%21
Tid:
den 15 december 2004, 23:35:20
Mer information:
Microsoft Support
Någon som vet vad det kan va för fel??
February 16, 2004
![sp_UserOfflineSmall](https://nordichardware.se/wp-content/sp-resources/forum-themes/reboot/images/darkpack/sp_UserOfflineSmall.png)
koden: <%
InlaggPerSida = 10
INC = "index.asp"
db = Server.MapPath("dbgastbok.mdb")
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 = "([.|,|!|?|:|;|)||&]]*) "
strText = regExp.Replace(strText,"$1 ")
regExp.Pattern = "([.|,|!|?|:|;|)||&]]*)"" target=""_blank"">([^<]*)"
strText = regExp.Replace(strText,""">$2")
strText = Replace(Trim(strText),vbCrLf, "
")
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%>
<%Set Recset = Server.CreateObject("ADODB.Recordset")
' Sidscriptet är nerladdat från http://www.fatmilk.nu/
' Skrivet av Ludvig "geek" Lindblom
' [email]geek@fatmilk.nu[/email]
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%>
Inget har skrivit i gästboken. |
<%Else%>
<%With RecSet
.MoveFirst
.PageSize = InlaggPerSida
.AbsolutePage = sida
End With
Sidor = RecSet.PageCount
If Sidor > 1 Then%>
<%For Sid = 1 To Sidor If (Int(Sid)) = (Int(sida)) Then%><%=FixDigits(Sid,2)%><%Else%> ?next=<%=Sid%>"><%=FixDigits(Sid,2)%> <%End If Next%> |
<%End If
X = 0
Do While Not RecSet.EOF And X < RecSet.PageSize%>
<%=Recset("rubrik")%> | <%=Recset("namn")%> | [Image Can Not Be Found] (<%=FormatDateTime(RecSet("datum"),4)%>)"> <%If RecSet("url") <> "" Then%>" target="_blank">[Image Can Not Be Found]"> <%End If%><%If RecSet("mail") <> "" Then%>[email=<%=RecSet(]">[Image Can Not Be Found]">[/email]<%End If%> |
<%=Link(RecSet("msg"))%> | |
Svar: <%=Replace(RecSet("svar"), vbCrLf, " ")%> |
<%X = X+ 1
Recset.MoveNext
Loop
If Sidor > 1 Then%>
<%For Sid = 1 To Sidor If (Int(Sid)) = (Int(sida)) Then%><%=FixDigits(Sid,2)%><%Else%> ?next=<%=Sid%>"><%=FixDigits(Sid,2)%> <%End If Next%> |
<%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%>
November 14, 2003
![sp_UserOfflineSmall](https://nordichardware.se/wp-content/sp-resources/forum-themes/reboot/images/darkpack/sp_UserOfflineSmall.png)
Jag har haft liknande problem, det kommer utav att det saknas skrivbehörighet i mappen där databasfilen ligger.
Jag löste det genom att:
i IIS måste du sätta skrivbehörighet på mappen med databasen.
i utforskaren dela ut samma mappen i nätverket och välja att användare får ändra på mina filer, alltså fulla rättigheter.
1 Guest(s)
![sp_Information](https://nordichardware.se/wp-content/sp-resources/forum-themes/reboot/images/darkpack/sp_Information.png)