</tr>
<tr>
<td align="right" width="35%" nowrap>
<span class="fAlert">* </span>Contact Name: </td>
<td align="left" nowrap><% if strDBNTUserName = "" then%><input type="text" name="poster" size="30" maxlength=50><%else%>
<% =strDBNTUserName %></font><input type="hidden" name="poster" value="<% =strDBNTUserName %>"><%end if%></td>
</tr>
<tr>
<td align="right" width="35%" nowrap>
<span class="fAlert">* </span>Contact Email: </td>
<td align="left" nowrap><input value="<%= strUserEmail %>" type="text" name="email" size="30" maxlength=50></td>
</tr>
<tr>
<td align="right" width="35%" nowrap>
Street Address: </td>
<td align="left" nowrap><input type="text" name="address" size="30" maxlength=75></td>
</tr>
<tr>
<td align="right" width="35%" nowrap>
City: </td>
<td align="left" nowrap><input type="text" name="city" size="20" maxlength=50></td>
</tr>
<tr>
<td align="right" width="35%" nowrap>
State: </td>
<td align="left" nowrap><input type="text" name="state" size="20" maxlength=20></td>
</tr>
<tr>
<td align="right" width="35%" nowrap>
Zip Code: </td>
<td align="left" nowrap><input type="text" name="zipcode" size="6" maxlength=10></td>
</tr>
<tr>
<td valign=top colspan=2>
<small> </small>
</td>
</tr>
<tr>
<td align="center" class="tSubTitle" colspan="2">
Add Image </td>
</tr>
<tr>
<td valign=top colspan=2 <%= spThemeBlock_subTitleCell %>>
<center><small>Be sure to include "http://" before your links and urls.</small></center>
</td>
</tr>
<tr>
<td valign=top colspan=2>
<small> </small>
</td>
</tr>
<tr>
<td align="right" width="35%" nowrap>
Link: </td>
<td align="left" nowrap><input type="text" name="link" size="45" value="http://" maxlength=75></td>
</tr>
<tr>
<td align="right" width="35%" nowrap>
Image Url: </td>
<td align="left" nowrap><input type="text" name="imagelink" size="45" value="http://" maxlength=75></td>
</tr>
<%
strSQL = "select ID, UP_ACTIVE, UP_ALLOWEDUSERS, UP_SIZELIMIT, UP_ALLOWEDEXT from " & strTablePrefix & "UPLOAD_CONFIG where UP_APPID = " & intAppID
set rsUload = my_Conn.execute(strSQL)
uActive = rsUload("UP_ACTIVE")
uAllowed = rsUload("UP_ALLOWEDUSERS")
uSize = rsUload("UP_SIZELIMIT")
uExt = rsUload("UP_ALLOWEDEXT")
uID = rsUload("ID")
set rsUload = nothing
session.Contents("uploadType") = uID
session.Contents("loggedUser") = strdbntusername
If FSOenabled = true and strAllowUploads = 1 and uActive = 1 and mLev >= uAllowed Then %>
<tr>
<td align="right" width="35%" valign="top" nowrap>
Upload Image: </td>
<td>
<input class="textbox" name="file1" id="file1" type="file" size="30" onchange="preview(this,'120','120')">
<center>
<img alt="Picture will preview here" id="previewField" src="images/spacer.gif"></center>
</td>
</tr>
<tr>
<td align="center" valign="top" colspan="2">
Maximum Upload file size:
<%= uSize %> kb Allowed extentions:
<%= uExt %> </td>
</tr>
<% End If %>
<tr>
<td valign=top colspan=2>
<small> </small>
</td>
</tr>
<tr>
<td align="center" <%= spThemeBlock_subTitleCell %> colspan="2">
Information About Your Classified </td>
</tr>
<tr>
<td valign=top colspan=2>
<small> </small>
</td>
</tr>
<tr>
<td align="right" width="35%" nowrap>
<span class="fAlert">* </span>Title Of Your Classified: </td>
<td align="left" nowrap><input type="text" name="title" size="30" maxlength=75></td>
</tr>
<tr>
<td align="right" width="35%" nowrap>
Keywords: </td>
<td><input type="text" name="keyword" size="40" maxlength="240"></td>
</tr>
<tr>
<td align="right" width="35%" nowrap><span class="fAlert">
* </span>
Price: </td>
<td align="left" nowrap><%= strCurSymbol %> <input type="text" name="price" size="10" maxlength=9></td>
</tr>
<tr>
<td align="right" width="35%" nowrap>
<span class="fAlert">* </span>Days to display: </td>
<td><input type="text" name="days" size="2" maxlength="2"></td>
</tr>
<tr>
<td align="right" width="35%" valign=top>
<span class="fAlert">* </span>Detail About Classified: </td>
<td align="right" nowrap> </td>
</tr>
<tr>
<td align="center" colspan="2" nowrap><span style="width:200px;"><textarea rows="9" name="description" cols="50"></textarea></span>
</td>
</tr>
<tr>
<td align="center" colspan="2">
<div id="wait" name="wait" style="visibility:hidden;"><center>
Upload in progress, please wait...</center>
</div></td>
</tr>
<tr>
<td width="191" height="14"> </td>
<td width="380" height="14">
<input type="submit" value="Submit" accesskey="s" title="Shortcut Key: Alt+S" class="button" id="button"> <input type="reset" value="Reset" class="button">
</td>
</tr></table>
<%
spThemeBlock1_close(intSkin)%>
</FORM>
<center>
<span class="fAlert">
*</span> = required field
If you did not see a category that fit your classified's description,
<a href="Javascript:openWindowPM('pm_pop.asp?mode=2&cid=0&sid=<%= getMemberID(split(strwebmaster,",")(0)) %>');">
<span class="fAlert">contact us</span>[/url] and we'll be happy to consider it for you.
</font>
</center>
<% end if
end sub
sub editItem()
intSkin = 1
if strDBNTUserName = "" then
doNotLoggedInForm
else
arg1 = txtClassifieds & "|classified.asp"
arg2 = "Edit Classified|javascript:;"
arg3 = ""
arg4 = ""
arg5 = ""
arg6 = ""
shoBreadCrumb arg1,arg2,arg3,arg4,arg5,arg6
app_MainColumn_top()
%>
<%
spThemeTitle= "Edit Classified"
spThemeBlock1_open(intSkin)
Set RS = my_Conn.Execute("select TITLE, DESCRIPTION, KEYWORD, PRICE, EMAIL, ADDRESS, CITY, STATE, ZIPCODE, LINK, IMAGELINK, POST_DATE, POSTER, END_DATE from CLASSIFIED where CLASSIFIED_ID =" & cat_id)
poster = RS("Poster")
if poster = strDBNTUserName or mLev = 4 then
%>
<form method="post" action="classified.asp?cmd=8&cid=<%=cat_id%>" id="formEle" name="formEle">
<table border="0">
<tr>
<td align="right" width="150">
<input type="hidden" name="webid" value="<%=cat_id%>">
<input type="hidden" name="cmd" value="8">
<input type="hidden" name="cid" value="<%=cat_id%>">
<span class="fAlert">* </span>
Title :</td><td><input type="text" value="<%=ChkString(RS("title"), "display")%>" name="title" size="40"></td></tr>
<tr>
<td align="right">
Keywords :</td><td><textarea name="keyword" cols=30 rows=4><%=ChkString(RS("keyword"), "display")%></textarea></td></tr>
<tr>
<td align="right">
<span class="fAlert">* </span>
Price :</td><td><input type="text" value="<%=ChkString(RS("price"), "display")%>" name="price" size="40"></td></tr>
<tr>
<td align="right">
<span class="fAlert">* </span>
Email :</td><td><input type="text" value="<%=ChkString(RS("email"), "display")%>" name="email" size="40"></td></tr>
<tr>
<td align="right">
Address :</td><td><input type="text" value="<%=ChkString(RS("address"), "display")%>" name="address" size="40"></td></tr>
<tr>
<td align="right">
City :</td><td><input type="text" value="<%=ChkString(RS("city"), "display")%>" name="city" size="40"></td></tr>
<tr>
<td align="right">
State :</td><td><input type="text" value="<%=ChkString(RS("state"), "display")%>" name="state" size="40"></td></tr>
<tr>
<td align="right">
Zip Code :</td><td><input type="text" value="<%=ChkString(RS("zipcode"), "display")%>" name="zipcode" size="40"></td></tr>
<tr>
<td align="right">
Link :</td><td><input type="text" value="<%=ChkString(RS("link"), "display")%>" name="link" size="40"></td></tr>
<tr>
<td align="right">
Image Link :</td><td><input type="text" value="<%=ChkString(RS("imagelink"), "edit")%>" name="imagelink" size="40"></td></tr>
<tr>
<td align="right">
Post Date :</td><td>
<input readonly="true" type="text" value="<%=ChkString(ChkDate2(RS("post_date")), "display")%>" name="post_date" size="40" ></td></tr>
<tr>
<td align="right">
<span class="fAlert">* </span>
End Date :</td><td><input type="text" value="<%=ChkString(ChkDate2(RS("end_date")), "display")%>" name="end_date" size="40"></td></tr>
<tr>
<td align="right">
<span class="fAlert">* </span>
Description :</td><td><textarea name="Description" cols="30" rows="4"><%= ChkString(rs("Description"), "display") %></textarea>
</td></tr>
<tr>
<td colspan=2 align="center">
<input type="submit" value="Update Classified" class="button"> <input type="reset" value="Clear All" class="button">
</td></tr>
</table></FORM>
<center>
<span class="fAlert">
*</span> = required field
</center>
<%
else
%><p> </p>
<p><span class="fSubTitle">
DO NOT TRY TO EDIT A CLASSIFIED AD THAT IS NOT YOURS!</span></p><p> </p>
------------------------------------------------------------------------------------------
Yukarıdaki Kodu classified_functions.asp 'den çıkarınca İlan ekleme sayfası aşağıdaki gibi görüntü aldı.
Linkleri Görebilmek İçin
Kayıt Olun veya
Giriş YapınOraya hangi kodları eklemeliyim?
