Jag håller påatt bygga ett asp forum. jag får det inte rikrigt att fungera på en sida, det är sidan som ska lägga til nya trådar, koden förjer nedan (rad 70 är markerat i fetsil:
<!--#INCLUDE FILE = "Adovbs.inc"-->
<% id = Request.Querystring(" iid")
oldamne = Request.Querystring("amne")
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")
sinlagg = Request.Form("Inlagg")
End If %>
<HTML>
<HEAD>
<TITLE>Inlägg i diskussion</TITLE>
</HEAD>
<BODY>
<P> </P>
<FORM Method="POST" action="nytt.Asp?iid=<%=id%>&Amne=<%=Server.URLEncode(oldamne)%>" name="Test">
<P><A Href="start.Asp">
Tillbaka till forumet</A><BR>
<%If Len(upd) > 0 Then Set Conn = Server.CreateObject ("ADODB.Connection")
Conn.Open "Forum"
Set Cmd = Server.Createobject("ADODB.Command")
Cmd.ActiveConnection = Conn
ssql = "Insert Into Forum (did, amne, odg, namn, epost, inlagg, "
ssql = ssql & "datum) values (?,?,?,?,?,?,?)"
Responsefrite ssql & "<BR>"
Cmd.CommandText = ssql
Cmd.CommandType = adCmdText
Response.Write " id = " & id & "<BR>"
If Len(id) < 1 Then id = "0"
Set prm = Cmd.CreateParameter (,adUnsignedlnt,,,clnt(id))
Cmd.Parameters.Append prm
Set prm = Cmd.CreateParameter (,adVarChar,,Len(samne),samne)
cmd.Parameters.Append prm
If Len(oldamne) > 0 Then
Sorig = False
Else
Sorig = True
End If
Set prm = Cmd.CreateParameter (,adBoolean ,,,cBool(Sorig))
Cmd.Parameters.Append prm
Set prm = Cmd.CreateParameter (,adVarChar ,,Len(snamn),snamn)
Cmd.Parameters.Append prm
If NOT(Len(sepost) > 0) Then sepost = "ingen adress"
Set prm = Cmd.CreateParameter (,adVarChar ,,Len(sepost),sepost)
Cmd.Parameters.Append prm
Set prm = Cmd.CreateParameter (,adVarChar ,,Len(sinlagg),sinlagg)
Cmd.Parameters.Append prm
Set prm = Cmd.CreateParameter (,adDBDate ,,,date)
Cmd.Parameters.Append prm
Conn.BeginTrans
If Len(oldamne) > 0 Then
supdate = "Update Suppi Set Antal = Antal + 1, senaste = #" & date
supdate = supdate & "# Where IID = " & id
Response.Write supdate & "<BR>"
Conn.Execute supdate
End If
Response.Write "Params: "
For z = 0 To Cmd.Parameters.Count -1
Response.Write Cmd.ParameterS.Item(z).Value & " "
Next
Response.Write "<BR>"
Cmd.Execute Conn.CommitTrans
Response.Write "Saved!"
[b]Else %> [/b]
<%
If Len(oldamne) > 0 Then
Response.Write oldamne
%>
<P>Ämne:
<Input Type="hidden" Name="Amne" size="20" Value = <%= oldamne%>></P>
<%Else%>
<Input Type="text" Name="Amne" Size="20">
<%End If %>
<P>Namn: <Input Type="text" Name="Namn" size="20">
Epost: <Input Type="text" Name="Epost" size="20"></P>
<P>Inlägg: <Textarea rows="4" Name="Inlagg" Cols="40"></Textarea></P>
<Input Type="hidden" Name="dummy" Size="20">
<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 !=0)&&(amn!=0)){
document.Test.dummy.value=xxx;
document.Test.submit();
}else{
alert("Du glömde fylla i Namn, Inlägg eller Ämne");
}
}
</Script>
Felmedelandet:
Feltyp:
Kompileringsfel i Microsoft VBScript (0x800A03EA)
Syntaxfel
/videomonitor/forum/nytt.asp, line 70
Else
------------------
ja©ob