Please help me find the problem ...

ASP Free Forums Sponsor:

March 7th, 2007, 11:22 AM

rootdaddy

Registered User

Join Date: Mar 2007

Posts: 8

Time spent in forums: 2 h 27 m 9 sec
Reputation Power: 0

Please help me find the problem ...

I'm sorry that I posted this incorrectly yesterday, but I'm still very new to ASP programming. I took this job before the IT guy asked me to redo the site in ASP. I've been having one heck of a problem with inserting a photo upload and display for the site. I'm using a Microsoft Access database to store the images in and ASP Upload as the upload component. Here are the codes for the new post ASP file and the default ASP file, which is used to display the posts. I'm not getting any error codes, but the images are not being uploaded or displayed. All of the text items from the new post are displaying themselves, the only thing missing is the photo. If anyone could help me figure out why this is, I'd be totally stoked. I really need to finish this job ASAP (code wraps on them this time)

First, the new post:

[CODE]
<html>
<head>
<server ="http://www.alliftlb.com/lift_trucks/inc/js_functions.js" type="text/javascript"></server>
<style>
.pageTitle {font-family:verdana,arial,sans-serif;font-size:18px;color:black;font-weight:bold;}
</style>
</head>
<body style="margin:0;" >


<table width=95% cellpadding=0 cellspacing=0 border=0 align=center>
<form action=new_post.asp method=post name=text_form onsubmit="javascript:return ValidateForm(this)">
<input type=hidden name=action value=post>
<tr bgcolor=efefef>
<td height=27 colspan=2>
<table width="100%" cellpadding=0 cellspacing=0 border=0>
<tr>
<td nowrap ><input type=button style="width:150;background-color:efefef" onclick="javascript:location.href='admin_edit_main.asp'" value="Admin Home">
<input type=button style="width:150;background-color:efefef" onclick="javascript:location.href='default.asp'" value="Lift Trucks Main" >

</td>
<td style="width: 100%"></td>
<td><input type=submit value="Post" style="background-color:efefef"></td>
</tr>
</table>
</td>
</tr>
</table>
<p align="right"> Equipment Type:
<input name="equip_type" type="text" style="width:30%;align=center;height:20;" value="">
</p>
<p align="right">Manufacturer:
<input name="manu" type="text" style="width:30%;align=center;height:20;" value="">
</p>
<p align="right"> Year:
<input name="year_made" type="text" style="width:30%;align=center;height:20;" value="">
</p>
<p align="right"> Model Number:
<input name="model_num" type="text" style="width:30%;align=center;height:20;" value="">
</p>
<p align="right">Serial Number:
<input name="serial_num" type="text" style="width:30%;align=center;height:20;" value="">
</p>
<p align="right">Odometer Reading:
<input name="odo_read" type="text" style="width:30%;align=center;height:20;" value="">
</p>
<p align="right"> Hour Meter Reading:
<input name="hour_read" type="text" style="width:30%;align=center;height:20;" value="">
</p>
<p align="right">Attachment Type:
<input name="attach_type" type="text" style="width:30%;align=center;height:20;" value="">
</p>
<p align="right">Capacity:
<input name="capacity" type="text" style="width:30%;align=center;height:20;" value="">
</p>
<p align="right">Price:
<input name="price" type="text" style="width:30%;align=center;height:20;" value="">
</p>
<p align="right"> E-mail:
<input name="email" type="text" style="width:30%;align=center;height:20;" value="">
</p>
<p align="center">Features: </p>
<p align="right"> <BR>
<textarea name="post_body" wrap=virtual style="width:95%;align=center;height:200;"></textarea>
</p>

<TABLE BORDER=0 align="center">
<tr><td><b>Select a file to upload:</b><INPUT TYPE=FILE SIZE=50 NAME="OLE_Object"></td></tr>
</TABLE>
<table width="95%" align=center cellpadding=0 cellspacing=0 border=0>
<tr>
<td>Enter Post Title:<input type="text" style="width:100%" value="" name="post_title">
<BR>
</td>
</tr>
</table>
</form>
<BR><BR><BR><BR><BR><BR><BR><BR><BR><BR><BR><BR><BR><BR>

<%else
'process the form

'remove single quotes which annoy the database
post_title=trim(replace(Request.Form("post_title"),"'","'"))
equip_type=trim(replace(Request.Form("equip_type"),"'","'"))
manu=trim(replace(Request.Form("manu"),"'","'"))
year_made=trim(replace(Request.Form("year_made"),"'","'"))
model_num=trim(replace(Request.Form("model_num"),"'","'"))
serial_num=trim(replace(Request.Form("serial_num"),"'","'"))
odo_read=trim(replace(Request.Form("odo_read"),"'","'"))
hour_read=trim(replace(Request.Form("hour_read"),"'","'"))
attach_type=trim(replace(Request.Form("attach_type"),"'","'"))
capacity=trim(replace(Request.Form("capacity"),"'","'"))
price=trim(replace(Request.Form("price"),"'","'"))
email=trim(replace(Request.Form("email"),"'","'"))
post_body=trim(replace(Request.Form("post_body"),"'","'"))
'replace textarea line breaks with html breaks.
post_body=replace(post_body,chr(13),"<br>")

'insert the record
sql="insert into posts( post_date ,post_title ,equip_type ,manu ,year_made ,model_num ,serial_num ,odo_read ,hour_read ,attach_type ,capacity ,price ,email ,post_body ) " & _
" values (now(),'" & post_title & "','"& equip_type & "','" & manu & "','" & year_made & "','" & model_num & "','" & serial_num &"','" & odo_read & "','" & hour_read &"','" & attach_type & "','" & capacity & "','" & price & "','" & email & "','" & post_body & "')"

Set Upload = Server.CreateObject("Persits.Upload")

Set File = Upload.Files("OLE_Object")

If Not File Is Nothing Then

Connect = "Driver={Microsoft Access Driver (*.mdb)};DBQ=http://www.alliftlb.com/lift_trucks/blog.mdb"

SQL = "INSERT INTO posts (OLE_Object, filename) VALUES(?, '"
SQL = SQL & File.Filename & "', '"

File.ToDatabase Connect, SQL

Response.Write "File saved."

Else

Response.Write "File not selected."

End If

objconn.execute(sql)%>

<%
'redirect to blog home page.
Response.Redirect "default.asp"

end if%>

March 7th, 2007, 11:27 AM

rootdaddy

Registered User

Join Date: Mar 2007

Posts: 8

Time spent in forums: 2 h 27 m 9 sec
Reputation Power: 0

Second, the default code:

[CODE]<%
if Request.QueryString("archive")<>"" then
iPage=Request.QueryString("archive")
else
ipage=1
end if

SQL="select post_id,email ,post_date ,equip_type ,manu ,year_made ,model_num ,serial_num ,odo_read ,hour_read ,attach_type ,capacity ,price, post_body,OLE_Object " & _
"from posts" & _
" order by post_date desc"

objrs.open sql,objconn,1,2
if not objrs.eof then
'set the recordset page size
objRS.PageSize=10
totcount=objrs.recordcount
'temp number to count down from
reccount=10
'move to the current page
objRS.AbsolutePage=iPage

'add to a string variable to display later
'this is the page number links for the archive.
recstring= ""

ic=0
if totcount>0 then
for i = 1 to totcount step 10
ic=ic+1
if cint(ic)=cint(ipage) then
recstring=recstring& "<span style=""background-color

range""> " & ic & " </span> | "
else
recstring=recstring& "<a href=default.asp?archive="&ic & "> " & ic & " </a> | "
end if
next
end if

'now loop through the current page.
while not objrs.eof and reccount>0
reccount=reccount-1

Response.write"<div style=""border:1px solid silver;background-color:eeeeee;font-family:verdana;font-size:12px"">"
Response.Write "<div style=""display:inline;font-size:11px"" align=right>"
Response.write "<b>[ Posted at " & formatdatetime(objrs("post_date"),4) & " "
Response.write "on " & formatdatetime(objrs("post_date"),1) & "</i> ]</b><BR>"
Response.BinaryWrite objrs("OLE_Object") & "<BR>"
Response.Write "<BR>" & "<b>Equipment Type:</b> " & objrs("equip_type") & "<BR>"
Response.Write "<BR>" & "<b>Manufacturer:</b> " & objrs("manu") & "<BR>"
Response.Write "<BR>" & "<b>Year:</b> " & objrs("year_made") & "<BR>"
Response.Write "<BR>" & "<b>Odometer Reading:</b> " & objrs("odo_read") & "<BR>"
Response.Write "<BR>" & "<b>Hour Meter Reading:</b> " & objrs("hour_read") & "<BR>"
Response.Write "<BR>" & "<b>Attachment Type:</b> " & objrs("attach_type") & "<BR>"
Response.Write "<BR>" & "<b>Capacity:</b> " & objrs("capacity") & "<BR>"
Response.Write "<BR>" & "<b>Price:</b> " & objrs("price") & "<BR>"
Response.Write "<BR>" & "<b>Features:</b> " & objrs("post_body") & "<BR>"
Response.Write "<BR>" & "<b>Email Us:</b> " & "&nbsp&nbsp<a href=mailto:willyw@alliftlb.com>Click Here! </a>" & "<BR>"
Response.write "</div></div>"
Response.Write "<BR><BR>"

objrs.movenext

wend

end if

Response.Write "<BR><BR><b> Lift Trucks<BR>"
'output the string we created earlier
Response.Write recstring & "<BR>"

%> </div>

Thread Tools	Search this Thread
Email this Page	Search this Thread: Advanced Search
Display Modes	Rate This Thread
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode	Rate This Thread: