|
|
|||||||||
|
|||||||||
|
|||||||||
| |
||
| |||||||||
![]() |
|
|
«
Previous Thread
|
Next Thread
»
|
Thread Tools | Search this Thread | Rate Thread | Display Modes |
|
#1
|
|||
|
|||
|
Here is the code for the "default page", where the posts will be displayed:
<% 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> " & "  <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> |
|
#2
|
||||
|
||||
|
do you have a question or a problem?
__________________
Come JOIN the party!!! Quote of the Month: Sacrifice (Temple): All we ask here is that you give us your heart. Questions to Ponder: If the #2 pencil is the most popular, why is it still #2? iif([sarcasm]=true,iif([you have to ask]=true,"didn't work","ha ha ha"),"not sarcasm") copyright© 2008 sbenj69 |
|
#3
|
|||
|
|||
|
that's so weird ... I swear I wrote more below all that ...
I'm having a problem with the image not loading in the default.asp file after posting from the new post.asp file ... Do you know what I've screwed up on ... the image is supposed to load as the Response.BinaryWrite OLE_Object |
|
#4
|
||||
|
||||
|
please use code tags to wrap your code.
|
![]() |
| Viewing: ASP Free Forums > Other > Programming Help > Hopefully this is my last issue with this site ... |
| Thread Tools | Search this Thread |
| Display Modes | Rate This Thread |
|
|
|
|