<!--#Include File = "Adovbs.inc"-->
<% id = Request.Querystring("ID")
oldamne = Request.Querystring("rubrik")
upd = Request.Form("dummy")
If Len(upd) > 0 Then
If Len(oldamne) > 0 Then
samne = oldamne
Else
samne = Request.Form("Amne")
End If
snamn = Request.Form("Namn")
sepost = Request.Form("Epost")
shemsida = Request.Form("Hemsida")
sinlagg = Request.Form("Inlagg")
End If %>
<html>
<head>
<title>Inlägg i diskussion</title>
</head>
<body>
<P> </P>
<form method="POST" action="forum_nyttinlagg.asp?ID=<%=id%>&Rubrik=<%=Server.URLEncode(oldamne)%>" name="Test">
<a href="forum.asp"><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("forumdb.mdb")
If Len(id) < 1 Then id = "0"
ssql = "Insert Into forum (Iid, Rubrik, ORIG, [Namn], Email, Hemsida, Meddelande, "
ssql = ssql & "[datum]) values (" & cInt(id) & ",'" & samne & "'," & Len(oldamne) & ",'" & snamn & "','" & sepost & "','" & shemsida & "','" & sinlagg & "',now())"
Connect.BeginTrans
If Len(oldamne) > 0 Then
supdate="Update forum Set Antal=Antal + 1 Where ID = " & id
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 %>
Namn: <input Type="text" Name="Namn" size="30"><br><br>
Epost: <input Type="text" Name="Epost" size="20">
Hemsida: <input Type="text" Name="Hemsida" size="20" value="Ej <A HREF="http://!"></P>" TARGET=_blank>http://!"></P></A>
<P>Inlägg: <textarea rows="4" Name="Inlagg" Cols="40"></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>
------------------
/emission
If you see someone without a smiley, give them your colon.
[Redigerat av emission den 14 sep 2001]