Welcome !
         

 Web Runtime Problems

Author Message
oxidus5886

  • Total Posts : 1
  • Scores: 0
  • Reward points : 0
  • Joined: 7/29/2013
  • Status: offline
Web Runtime Problems Monday, July 29, 2013 1:28 AM (permalink)
0
Hi everyone. I am not knew to programming, but I am new to ASP.
 
I have the following code and for some reason a browser refuses to load the page saying there is an internal error.  Can anyone assist please????
 
 <p align="right"><a href="classifiedsform.asp">ADD AN ITEM </a></p>
      <table width="100%" border="0">
   <% Dim rs, data_source, no, posteddate, durationtime, todaydate, shouldbeactive, sql_alter, con 
          no = 0 
          data_source = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & _ 
                Server.MapPath("stafflounge.mdb") 
         
          rs = Server.CreateObject("ADODB.Recordset")  
         rs.Open("tblClassifieds", data_source)
           todaydate = Date.Now.Date() 
        
        
           posteddate = rs("postedon")  
          durationtime = rs("duration") 
         While Not rs.EOF 
        
          If (posteddate + durationtime) < todaydate Then  
                 sql_alter = "update tblClassifieds set enabled = true" 
                 con = Server.CreateObject("ADODB.Connection") 
                  con.Open(data_source) 
                 con.Execute(sql_alter) 
                con.Close() 
            End If 
           If rs("enabled") = False Then %>
            
        
            
         <tr>
            <td rowspan="3">
            <img src="<%=rs("image")%>" width="25%" height="25%" ><td width="70%"><%=rs("title")%></td>
            <td width="15%"><%=rs("postedon")%></td>
         </tr>
         <tr>
            <td rowspan="2"><%=rs("descrip")%></td>
            <td><%=rs("price")%></td>
         </tr>
         <tr>
            <td><%=rs("postedby")%></td>
         </tr>
         <tr>
            <td colspan="3"><hr /></td>
         </tr>
            
   <%
            End If
            no = no + 1
            rs.MoveNext()
        End While
         
        rs.Close()
        rs = Nothing
   %>
      </table>
 

 
#1
    Online Bookmarks Sharing: Share/Bookmark

    Jump to:

    Current active users

    There are 0 members and 3 guests.

    Icon Legend and Permission

    • New Messages
    • No New Messages
    • Hot Topic w/ New Messages
    • Hot Topic w/o New Messages
    • Locked w/ New Messages
    • Locked w/o New Messages
    • Read Message
    • Post New Thread
    • Reply to message
    • Post New Poll
    • Submit Vote
    • Post reward post
    • Delete my own posts
    • Delete my own threads
    • Rate post

    2000-2017 ASPPlayground.NET Forum Version 3.9