<%
If request("item")="" or request("description")="" or _
request("phone")="" or _
request("email")="" or request("stad")="" then
%>
Skulle jag tro.
4 svar · 154 visningar · startad av syrolis
Hej, behöver lite hjälp igen.
Jag har ett annonsskript på min kattsida där man får fylla i Föremål, beskrivning, pris, kategori, pris, Namn, tel, email, stad och ett lösenord.
Det finns en nackdel med skriptet och det är att fältet pris är tvingande då kattungar kan kosta olika beroende på färg härstamning och "kvalitét"
Fånigt va!?
I alla fall. Jag vill ta bort det tvingande för fältet pris så man kan lämna det fältet blankt om man vill.
Men jag är osäker på vad jag ska peta på i skriptet?
Kan någon hjälpa mig?
Jag har sökt i forumet men inte blivit klokare.
Tack på förhand!
Sylvia
<%
If request("item")="" or request("description")="" or _
request("price")="" or request("phone")="" or _
request("email")="" or request("stad")="" then
%>
<% showheader "Ny annons" %>
<table border="1" width=650 bordersyle="solid" bordercolor="green" bgcolor="black">
<tr>
<td colspan="2">
Fyll i alla fälten och se till att välja en passande categori.<p>
Se till att skriva in ett lösenord som du kommer<br> ihåg så att du kan ändra eller
ta bort din annons senare.<p></td></tr>
<form method="post" action="placead.asp">
<tr><td>Föremål:</td>
<td><input type="text" size="50" name="item"></td></tr>
<td valign=top>Beskrivning:</td>
<td><textarea name="description" rows="6" cols="50"></textarea></td></tr>
<tr><td>Categori:</td>
<td><select name="category" size="1">
<option selected value="categori1"><%=categori1%></option>
<option value="categori2"><%=categori2%></option>
<option value="categori3"><%=categori3%></option>
<option value="categori4"><%=categori4%></option>
<option value="categori5"><%=categori5%></option>
<option value="categori6"><%=categori6%></option>
<option value="categori7"><%=categori7%></option>
<option value="categori8"><%=categori8%></option>
</select></td></tr>
<tr><td>Pris:</td>
<td><input type="text" size="10" name="price">Kr</td></tr>
<tr><td>Tel nr:</td>
<td><input type="text" size="15" name="phone"></td></tr>
<tr><td>Email:</td>
<td><input type="text" size="25" name="email" value="@"></td></tr>
<tr><td>Stad:</td>
<td><input type="text" size="15" name="stad"></td></tr>
<tr><td>Lösenord:</td>
<td><input type="password" size="10" name="password"></td></tr>
<tr><td><input type="submit" value="Klar">
</table></form>
<% else %>
<%
Dim query, connect, classifieds, place
showheader "Ny annons"
on error resume next
%>
<font size=5><b>Categori:
<% if request("category")="categori1" then %>
<%=categori1%>
<% elseif request("category")="categori2" then %>
<%=categori2%>
<% elseif request("category")="categori3" then %>
<%=categori3%>
<% elseif request("category")="categori4" then %>
<%=categori4%>
<% elseif request("category")="categori5" then %>
<%=categori5%>
<% elseif request("category")="categori6" then %>
<%=categori6%>
<% elseif request("category")="categori7" then %>
<%=categori7%>
<% elseif request("category")="categori8" then %>
<%=categori8%>
<% end if %>
</b></font>
<%
showitem request("item"),request("description"),_
request("price"),request("phone"),request("email"),_
request("stad"),date
set connect = server.createobject("ADODB.connection")
Connect.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("db/annonser.mdb") & ";pwd=;"
set classifieds = server.createobject("ADODB.recordset")
classifieds.open _
"SELECT * FROM items WHERE category='" & _
request("category") & "'",_
connect,adopendynamic,adlockoptimistic
classifieds.addnew
classifieds("item") = request("item")
classifieds("category") = request("category")
classifieds("description") = request("description")
classifieds("price") = request("price")
classifieds("phone") = request("phone")
classifieds("email") = request("email")
classifieds("stad") = request("stad")
classifieds("posted") = date
classifieds("password") = request("password")
classifieds.update
%>
<font size=5><i>Din annons har placerats.</i></font><p>
<a href="default.asp">Hem</a>
<% end if %>
<%
If request("item")="" or request("description")="" or _
request("phone")="" or _
request("email")="" or request("stad")="" then
%>
Skulle jag tro.
du har följande kod i början
den kollar ju ifall några variablar är tomma, om visa formuläret igen!
men om du tar bort request("price")="" så kan du ha tomt i price!
exempel:
<%
If request("item")="" or request("description")="" or _
request("phone")="" or _
request("email")="" or request("stad")="" then
%>
Sen hela denna bit:
<% if request("category")="categori1" then %>
<%=categori1%>
<% elseif request("category")="categori2" then %>
<%=categori2%>
<% elseif request("category")="categori3" then %>
<%=categori3%>
<% elseif request("category")="categori4" then %>
<%=categori4%>
<% elseif request("category")="categori5" then %>
<%=categori5%>
<% elseif request("category")="categori6" then %>
<%=categori6%>
<% elseif request("category")="categori7" then %>
<%=categori7%>
<% elseif request("category")="categori8" then %>
<%=categori8%>
Kan du inte helt enkelt skriva:
<%=request("category")%>
Där?
First Choice:
Jag provade som du skrev men fick felmeddelande:
Error Type:
Microsoft VBScript compilation (0x800A03EA)
Syntax error
/dd/koposalj/placead.asp, line 13
Men jag upptäckte att ett vanligt mellanslag i rutan gick igenom som svar på "frågan". Det duger för mig. Det är ju bara att meddela de som annonserar detta.
----------------------------------
Solbulle:
Angående att ändra koden som du föreslog gick ju bra. Annonsen blev ok. Men titeln på kategorin försvann och det visades:
Category= Category8 och det var ju inte så kul.
Jag har lagt tillbaka min kod igen och är nöjd med det.
Tack så mycket.