<% Dim db, rst, rst2, DSNtemp Dim authenticated, count Dim user, filext, imgname authenticated = Session("PrivateAreaAuthenticated") If authenticated <> True Then Response.Redirect("http://www.goaction.com") End if Set db = Server.CreateObject("ADODB.Connection") Set rst = Server.CreateObject("ADODB.Recordset") DSNtemp="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("/data/private.mdb") db.Open DSNtemp user = "" If Not IsNull(Request.QueryString("User")) Then user = Request.QueryString("User") End If %> Action Systems: Private Download Area: User Page

Private Download Area - User Page



File Downloads for <%=user%>

<% count = 0 If user <> "" Then Set rst = db.Execute("SELECT * FROM qryUserFiles WHERE UserName='" & user & "' AND FileName IS NOT NULL ORDER BY FileID") Do While Not rst.EOF If count Mod 2 = 0 Then Response.Write "" Else Response.Write "" End If Response.Write "" Response.Write "" rst.MoveNext count = count + 1 Loop End If If count = 0 Then Response.Write "" Response.Write "" Response.write "" End If rst.Close db.Close Set rst = Nothing Set db = Nothing %>
Files
" filext = Right(rst("FileName"),3) Select Case LCase(filext) Case "xls" imgname = "xls.gif" Case "ppt" imgname = "ppt.gif" Case "pdf" imgname = "pdf.gif" Case "doc" imgname = "word.gif" Case "zip" imgname = "zip.gif" Case "htm", "html" imgname = "ie.gif" Case "exe" imgname = "exe.gif" Case "jpg", "gif", "tiff", "png" imgname = "jpg.gif" Case Else imgname = "unknown.gif" End Select Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "
" Response.Write "" & fileext & " icon" Response.Write "" Response.Write "" & rst("FileName") & "
" Response.Write rst("FileDescription") Response.Write "
" Response.Write "
There are no files to download at this time.