Log In
Home
February 16, 2004
Offline
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??
November 27, 2002
Offline
jag kan inte påstå att jag e hemma på detta men jag tor det skulle underlätta för andra om du förklarade hur gbn är uppbyggd eller rentav postade koden, iaf koden runt raden där felet uppstod... i guess 🙄
February 16, 2004
Offline
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
Offline
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)
