Någon som kan hitta felet
här:
<!--#Include File = "Adovbs.inc"-->
<%
ID = Request.Querystring("ID")
fid = Request.Querystring("FID")
oldamne = Request.Querystring("rubrik")
upd = Request.Form("dummy")
If Len(oldamne) > 0 Then
samne = oldamne
Else
samne = Request.Form("Amne")
End If
snamn = Request.Form("Namn")
sinlagg = Request.Form("Inlagg")
If Len(oldamne) > 0 Then
Sorig = 0
Else
Sorig = 1
End If
%>
<html>
<head>
<title>Community - _ _ _ _ _ _.nu</title>
</head>
<body>
<P> </P>
<form method="POST" action="community_forum_nyttinlagg.asp?ID=<%=id%>&FID=<%=fid%>&Rubrik=<%=Server.URLEncode(oldamne)%>" name="Test">
<a href="community_forum.asp?ID=<%=id%>"><p>Tillbaka till forumet</a><br>
<%
If Len(upd) > 0 Then
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source ="& Server.MapPath("communitydb.mdb")
If Len(id) < 1 Then id = "0"
ssql = "Insert Into forum (Iid, Rubrik, ORIG, [Namn],Meddelande, "
ssql = ssql & "[datum]) values (" & cInt(id) & ",'" & samne & "'," & Sorig & ",'" & snamn & "','" & sinlagg & "',now())"
Connect.BeginTrans
If Len(oldamne) > 0 Then
supdate="UPDATE forum SET Antal=Antal + 1 WHERE ID = " & fid
Connect.Execute supdate
End If
Connect.Execute ssql,,128
Connect.CommitTrans
Response.Write "Inlägg Sparat!"
Else %>
<P>Ämne:
<%
If Len(oldamne) > 0 Then
Response.Write oldamne
%>
<input Type="hidden" Name="Amne" size="20" Value = <% =oldamne%>></P>
<%Else%>
<input Type="text" Name="Amne" Size="20"></P>
<%End If %>
<%
Set Connect2 = Server.CreateObject("ADODB.Connection")
Connect2.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source ="& Server.MapPath("communitydb.mdb")
SQL = "SELECT * FROM medlemmar WHERE ID="&ID&""
Set RecSet = Connect.Execute(SQL)
an = RecSet("anvandarnamn")
lo = RecSet("losenord")
%>
Namn: <br><br>
<P>Inlägg: <textarea rows="5" Name="Inlagg" Cols="40"><% =lo%></Textarea></P>
<input Type="hidden" Name="dummy" Size="20"></P>
<p><input type="Button" value="Skicka" Name="B1" onClick="B1_OnClick(); return
false;">
<Input type="Reset" value="Återställ" Name="reset">
</p>
</form>
<% End If %>
</body>
</html>
<script language="JavaScript">
function B1_OnClick() {
var nam = document.Test.Namn.value;
var inl = document.Test.Inlagg.value;
var amn = document.Test.Amne.value;
if((nam.length != 0) && (inl.length != 0)&& (amn.length != 0)) {
document.Test.dummy.value = "xxx";
document.Test.submit();
} else {
alert("Du glömde att fylla i Namn, Inlägg eller Ämne");
}
}
</script>
<%
RecSet.Close
Set RecSet = Nothing
Connect2.Close
Set Connect2 = Nothing
%>
Felmeddelande:
Körningsfel i Microsoft VBScript fel '800a01a8'
Objekt krävs.: ''
------------------
Das Dunkhopf...