Yo!
Får upp detta:
Microsoft VBScript compilation error '800a03f2'
Expected identifier
/annonsering/placead.asp, line 60
Dim Query, Connect, Class, Place
--------------------^
Kan ni hitta felet?
<% Else %>
<%
Dim Query, Connect, Class, Place
ShowHeader "Place A New Ad"
On Error Resume Next
%>
<font size=5><b>CATEGORY: <%=Request("Category")%>
</b></font>
<%
ShowItem Request("Item"),Request("Description"),Request("Price"),Request("Phone"),Request("Email"),Request("State"),Date
Set Connect = Server.CreatObject("ADODB.Connection")
Connect.Open "Classifieds"
Set Class = Server.CreatObject("ADODB.Recordset")
Class.Open _
"SELECT * FROM Item WHERE Category="" & Request("Category") & "", Connect,asOpenDynamic,adLockOptimistic
Class.AddNew
Class("Item") = Request("Item")
Class("Category") = Request("Category")
Class("Description") = Request("Description")
Class("Price") = Request("Price")
Class("Phone") = Request("Phone")
Class("Email") = Request("Email")
Class("State") = Request("State")
Class("Posted") = Date
Class("Password") = Request("Password")
Class.Update
If Err.Number = 0 Then %>
<font size=5><i>Your ad has been placed!</i></font><p>
<a href="default.asp">Home</a><p>
<% Else %>
There was an error placing your ad!<p>
Error #<%=Err.Number%> : <%=Err.Description%><p>
<% End If %>
<% End If %>
