Jump to content


  • Content Count

  • Joined

  • Last visited

Community Reputation

0 Neutral

About lkeller

  • Rank
  1. lkeller

    Truncate Field

    Thank you, I should of found that myself.
  2. lkeller

    Truncate Field

    I am trying to truncate a 9+ account number to only display the last 4 digits. I have tried a few different ways of doing it, with the ASP Trim command, and using the Right function from the SQL SELECT.This is the sql select code: strSQL = "SELECT * from AccInfo where AccNum=" & Prep4SQL(frmAccNum,"STRING") and this is the email where I'm putting the Account Number: strEmailBody = strEmailBody & vbcrlf & _"The last 4 digits of your account number are " & frmAccNum & vbcrlf This currently works and displays the full account number in the email.
  3. lkeller

    File Upload

    Thank you, I was able to figure it out from your last comment.
  4. lkeller

    File Upload

    This is the default uploadTester.asp that comes w/free ASP Upload, I commented out a few of the inputs that I do not need and the first 6 lines. One thing I forgot to mention was if I take the two files uploadtester.asp and freeaspupload.asp and put them in a different folder and navigate directly to uploadtester.asp in a browser it will work. It just doesn't work when I try to use it with the admin.asp project. <%@ Language=VBScript %><% option explicit Response.Expires = -1Server.ScriptTimeout = 600%><!-- #include file="freeaspupload.asp" --><%' ****************************************************' Change the value of the variable below to the pathname' of a directory with write permissions, for example "C:\Inetpub\wwwroot" Dim uploadsDirVar uploadsDirVar = "c:\inetpub\uploads" ' ****************************************************' Note: this file uploadTester.asp is just an example to demonstrate' the capabilities of the freeASPUpload.asp class. There are no plans' to add any new features to uploadTester.asp itself. Feel free to add' your own code. If you are building a content management system, you' may also want to consider this script: [url="http://www.webfilebrowser.com/"]http://www.webfilebrowser.com/[/url]function OutputForm()%> <form name="frmSend" method="POST" enctype="multipart/form-data" action="uploadTester.asp" onSubmit="return onSubmitForm();"> <B>File names:</B><br> File 1: <input name="attach1" type="file" size=35><br> File 2: <input name="attach2" type="file" size=35><br> File 3: <input name="attach3" type="file" size=35><br> File 4: <input name="attach4" type="file" size=35><br> <br> <!-- These input elements are obviously optional and just included here for demonstration purposes --> <B>Additional fields (demo):</B><br> Enter a number: <input type="text" name="enter_a_number"><br> Checkbox values: <input type="checkbox" value="1" name="checkbox_values"> 1 <input type="checkbox" value="2" name="checkbox_values"> 2<br> Drop-down list (with multiple selection): <br> <select name="list_values" class="TextBox" MULTIPLE> <option value='frist' > First</option> <option value='second' > Second</option> <option value='third' > Third</option> </select><br> <textarea rows="2" cols="20" name="t_area">Test text area</textarea><br> <!-- End of additional elements --> <input style="margin-top:4" type=submit value="Upload"> </form><%end functionfunction TestEnvironment() Dim fso, fileName, testFile, streamTest TestEnvironment = "" Set fso = Server.CreateObject("Scripting.FileSystemObject") if not fso.FolderExists(uploadsDirVar) then TestEnvironment = "<B>Folder " & uploadsDirVar & " does not exist.</B><br>The value of your uploadsDirVar is incorrect. Open uploadTester.asp in an editor and change the value of uploadsDirVar to the pathname of a directory with write permissions." exit function end if fileName = uploadsDirVar & "\test.txt" on error resume next Set testFile = fso.CreateTextFile(fileName, true) If Err.Number<>0 then TestEnvironment = "<B>Folder " & uploadsDirVar & " does not have write permissions.</B><br>The value of your uploadsDirVar is incorrect. Open uploadTester.asp in an editor and change the value of uploadsDirVar to the pathname of a directory with write permissions." exit function end if Err.Clear testFile.Close fso.DeleteFile(fileName) If Err.Number<>0 then TestEnvironment = "<B>Folder " & uploadsDirVar & " does not have delete permissions</B>, although it does have write permissions.<br>Change the permissions for IUSR_<I>computername</I> on this folder." exit function end if Err.Clear Set streamTest = Server.CreateObject("ADODB.Stream") If Err.Number<>0 then TestEnvironment = "<B>The ADODB object <I>Stream</I> is not available in your server.</B><br>Check the Requirements page for information about upgrading your ADODB libraries." exit function end if Set streamTest = Nothingend functionfunction SaveFiles Dim Upload, fileName, fileSize, ks, i, fileKey Set Upload = New FreeASPUpload Upload.Save(uploadsDirVar) ' If something fails inside the script, but the exception is handled If Err.Number<>0 then Exit function SaveFiles = "" ks = Upload.UploadedFiles.keys if (UBound(ks) <> -1) then SaveFiles = "<B>Files uploaded:</B> " for each fileKey in Upload.UploadedFiles.keys SaveFiles = SaveFiles & Upload.UploadedFiles(fileKey).FileName & " (" & Upload.UploadedFiles(fileKey).Length & " " next else SaveFiles = "The file name specified in the upload form does not correspond to a valid file in the system." end if SaveFiles = SaveFiles & "<br>Enter a number = " & Upload.Form("enter_a_number") & "<br>" SaveFiles = SaveFiles & "Checkbox values = " & Upload.Form("checkbox_values") & "<br>" SaveFiles = SaveFiles & "List values = " & Upload.Form("list_values") & "<br>" SaveFiles = SaveFiles & "Text area = " & Upload.Form("t_area") & "<br>"end function%><HTML><HEAD><TITLE>Test Free ASP Upload 2.0</TITLE><meta http-equiv="Content-Type" content="text/html; charset=utf-8" /><style>BODY {background-color: white;font-family:arial; font-size:12}</style><script>function onSubmitForm() { var formDOMObj = document.frmSend; if (formDOMObj.attach1.value == "" && formDOMObj.attach2.value == "" && formDOMObj.attach3.value == "" && formDOMObj.attach4.value == "" ) alert("Please press the Browse button and pick a file.") else return true; return false;}</script></HEAD><BODY><br><br><div style="border-bottom: #A91905 2px solid;font-size:16">Upload files to your server</div><%Dim diagnosticsif Request.ServerVariables("REQUEST_METHOD") <> "POST" then diagnostics = TestEnvironment() if diagnostics<>"" then response.write "<div style=""margin-left:20; margin-top:30; margin-right:30; margin-bottom:30;"">" response.write diagnostics response.write "<p>After you correct this problem, reload the page." response.write "</div>" else response.write "<div style=""margin-left:150"">" OutputForm() response.write "</div>" end ifelse response.write "<div style=""margin-left:150"">" OutputForm() response.write SaveFiles() response.write "<br><br></div>"end if%><!-- Please support this free script by having a link to freeaspupload.net either in this page or somewhere else in your site. --><div style="border-bottom: #A91905 2px solid;font-size:10">Powered by <A HREF="http://www.freeaspupload.net/" style="color:black">Free ASP Upload</A></div><br><br><!--- START OF HTML TO REMOVE - contains the script ratings submission --><table cellspacing=10><tr><td><table width="140" border="1" cellpadding="0" cellspacing="0" bordercolor="#840300" bgcolor="#D70500"> <form action="http://www.hotscripts.com/cgi-bin/rate.cgi" method="POST"> <tr> <td><table width="100%" border="0" cellspacing="0" cellpadding="2" style="font-size:8pt"> <tr align="center" bgcolor="#AA0400"> <td colspan="2"><b><font color="#FFFFFF">Rate Our Program<br>at Hotscripts.com <input type="hidden" name="ID" value="21966"> <input type="hidden" name="external2" value="1"> </font></b></td> </tr> <tr> <td align="right"><input type="radio" value="5" name="rate"></td> <td><font color="#FFFFFF">Excellent!</font></td> </tr> <tr> <td align="right"><input type="radio" value="4" name="rate"></td> <td><font color="#FFFFFF">Very Good</font></td> </tr> <tr> <td align="right"><input type="radio" value="3" name="rate"></td> <td><font color="#FFFFFF">Good</font></td> </tr> <tr> <td align="right"><input type="radio" value="2" name="rate"></td> <td><font color="#FFFFFF">Fair</font></td> </tr> <tr> <td align="right"><input type="radio" value="1" name="rate"></td> <td><font color="#FFFFFF">Poor</font></td> </tr> <tr align="center"> <td colspan="2"><input name="submit2" type="submit" value="Cast My Vote!"></td> </tr> </table></td> </tr> </form></table><td valign=top><table border=0 cellpadding=1 cellspacing=0 bgcolor=000000><tr><td align=center> <table border=0 cellpadding=3 cellspacing=0 bgcolor=eeeedd> <tr><td align=center nowrap> <font style="font-size:10pt;font-family:Arial;"><b>Rated:</b> <a href="http://www.Aspin.com/func/review?id=5380510"><img src=http://ratings.Aspin.com/getstars?id=5380510 border=0></a> <font style="font-size:8pt;"><br>by <a href="http://www.Aspin.com">Aspin.com</a> users<br></font></font> </td></tr><tr nowrap><form action="http://www.Aspin.com/func/review/write?id=5380510" method=post><td align=center> <font style="font-size:10pt;font-family:Arial;">What do you think?</font><br> <select name="VoteStars"><option>5 Stars<option>4 Stars<option>3 Stars<option>2 Stars<option>1 Star</select><input type=submit value="Vote"> </td></form></tr></table></td></tr></table><td valign=top style="font-size:10pt" width=300>Please support this free script by rating it with the boxes on the left.<p>To remove these boxes from this page please follow the instructions in the source HTML. The code to remove is clearly indicated and very easy to find.<p>Thank you.</table><!-- end of html to remove -------------------------></BODY></HTML>
  5. lkeller

    File Upload

    I am trying to insert freeASPupload into my website and I keep getting an error when I try to Upload(I can browse for a file without issue):Microsoft VBScript runtime error '800a01fa'Class not defined: 'FreeASPUpload'/client/uploadTester.asp, line 78 <!-- #include file = "../common/db_connectb.asp" --><!-- #include file = "../common/adovbs.inc" --><% 'local data source CONN_STR = replace(CONN_STR, "\client", "") page_id = request.QueryString("action") if session("login") <> TRUE then response.redirect("index.asp?action=FAIL") else fullname = session("name") end if %><!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"><html xmlns="http://www.w3.org/1999/xhtml"><head><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" /><title>Site Administration</title><link href="../styles/admin.css" rel="stylesheet" type="text/css" /><script language="javascript" src="../common/controls.js" type="text/javascript"></script></head><body><div class="wrapper"><table border="0" cellspacing="0" cellpadding="0" class="header"> <tr> <td width="1%"><img src="../images/logo.gif" width="120" height="101"></td> <td width="99%"> <h2>ADMINISTRATION SITE</h2> </td> </tr></table><table border="0" cellspacing="0" cellpadding="0" class="content"> <tr> <td class="bdr-right nav-cell"> <h1>Options</h1> <ul> <li><a href="admin.asp?action=enews">History</a></li> <li><a href="admin.asp?action=uload">Upload Onsert</a></li> <li><a href="admin.asp?action=logout">Logout</a></li> </ul> </td> <td class="cont-cell"> <h3>Welcome <%=fullname%></h3> <% Select Case page_id Case "enews" %> <!-- #include file = "editannouncement.asp" --> <% Case "uload" %> <!-- #include file = "uploadTester.asp" --> <% Case "logout" response.redirect("../common/killb.asp") %> <% Case Else %> <p>Admin</p> <% End Select %> </td> </tr></table></div></body></html> The freeASPupload I have left mostly unchanged, just commented out some of the inputs that I am not going to use, but I can copy and paste that code if it will help.Thank You
  • Create New...