Fejlmelding i gæstebog
Jeg har fået en kode til en gæstebog som jeg har rodet lidt med.. Men når jeg nu prøver at lave et indlæg i den siger den følgene:Error 405 Method Not Allowed
The requested method POST is not allowed for URL /indsaet.asp
Hvad har jeg lavet forkert?
Min kode for indsaet.asp er:
<%
' Der skal ikke rettes i denne fil.
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("tagwall.mdb")
Conn.Open DSN
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"
%>