writing form data to a text file AND upload a file

jkukis · May 31, 2002

For a project, im trying to take data from a user,ie name company phone etc, and let them pick artwork to upload. I want the file to be uploaded to the server and their field info pulled andput into a text file. I am using ABCupload as a addin. I just started using asp and can't figure out whats wrong with my code.Here is the asp code:

<% @Language="VBScript" %>
<html>
<body>
<%
Set theForm = Server.CreateObject("ABCUpload4.XForm&quot

Set theField = theForm("File&quot

(1)
If theField.FileExists Then
theField.Save "images/" & theField.FileName
Response.Write "File " & theField.FileName & " uploaded"
Else
Response.Write "No file uploaded"
End If
%>
<%
Set fs = CreateObject("Scripting.FileSystemObject&quot

Folderpath=server.mappath("\&quot

& "/uploads""
Wcounter=Folderpath & "/counter.txt"

Set fs = CreateObject("Scripting.FileSystemObject&quot

if fs.FolderExists(Folderpath) then
Set a = fs.OpenTextFile(Wcounter)
hits = Clng(a.ReadLine)
hits = hits + 1
a.close
else
Set a = fs.CreateFolder(Folderpath)
hits=1
end if
' Creates text file that keeps track of file number.
Set a = fs.CreateTextFile(Wcounter,True)
a.WriteLine(hits)
a.Close
Set fs=nothing

' creates text file with fields from form
Set fs = CreateObject("Scripting.FileSystemObject&quot

Set a = fs.CreateTextFile(Folderpath & "\" & hits & ".txt&quot

a.WriteLine("Date Submitted" & Now() & ".&quot

a.WriteLine theForm("Name&quot

a.WriteLine theForm("Company&quot

a.WriteLine theForm("Phone&quot

a.WriteLine theForm("Email&quot

a.WriteLine theForm("message&quot

a.Close
Set a=nothing
Set fs=nothing
%>
<%
Response.Write "Thank you for uploading your file."<br>
'Gives user a proof number based on the value of hits.
Response.Write "Your proof number is" & hits & "."
'Redirected to Cox website after upload finishes.
%>
</body>
</html>
-----------------------
and the html:
<html>
<body>
<form method="post" action="mixedupload.asp" enctype="multipart/form-data">
<table border=0>
<tr>
<td>
<p><b>Name</b>:
</td>
<td>
<input type="text" name="Name" size=40>
</td>
</tr>
<tr>
<td>
<p><b>Company/Organization</b>:
</td>
<td>
<input type="text" name="Company" size=40>
</td>
</tr>
<tr>
<td>
<p><b>Phone Number</b>:
</td>
<Td>
<input type="text" name="Phone" size=40>
</td>
</tr>
<tr>
<Td>
<p><b>E-mail Address</b>:
</td>
<td>
<input type="text" name="Email" size=40>
</td>
</tr>
<tr>
<tr>
<Td>
<p><b>Description of Artwork</b>:
</td>
<td>
<textarea name="message" cols="30" rows="4"></textarea>
</td>
</tr>
<tr>
<Td>
<p><b>File</b>:
</td>
<Td>
<input type="file" name="File">
</td>
</tr>
</table>
<input type="submit" name="submit" value="Submit Artwork">
</form>
<body>
</html>

jkukis · May 31, 2002

also, my problem is that nothing happens with the code at all, I can't seem to find where the file is being saved or where the text file is saved if it even is.

FengShui1998 · May 31, 2002

jkukis,

What kind of error are you getting? You may be running into the problem of separating the upload file from your form fields. Does ABCupload separate the file from form fields when it does ENCTYPE="multipart/form-data"?

fengshui_1998

jkukis · May 31, 2002

ABCUpload just had the first part of the code for uploading the file, the second part that does everything with the form is froma nother site on the net and i attempted to edit it, if anyone knows a way that I can do what I wanna do thatd be helpful.

FengShui1998 · May 31, 2002

jkukis,

Here are three files Homepage.asp, Upload.asp, and Uploadexmple.asp. You need to create the "temp" directory in the directory where you place these files. If you want to create a new form field, you can refer to it as

Uploader.Form("NewFieldName&quot

Once you get the form field data, you can use FileScripting Object to create a file and write to that file.

Cheers,
fengshui_1998

----------------------
Homepage.asp
----------------------
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<TITLE></TITLE>
</HEAD>
<BODY>
<FORM NAME="upload" METHOD="POST" ENCTYPE="multipart/form-data" ACTION="uploadexmple.asp" onsubmit="return checkit()">
<TABLE BORDER=0>
<tr><td><b>Enter your first name:</b><br><INPUT TYPE=TEXT SIZE=40 NAME="firstname"></td></tr>
<tr><td><b>Enter your last name:</b><br><INPUT TYPE=TEXT SIZE=40 NAME="lastname"></td></tr>
<tr><td><b>Enter your Phone:</b><br><INPUT TYPE=TEXT SIZE=40 NAME="phone"></td></tr>
<tr><td><b>Select a file to upload:</b><br><INPUT TYPE=FILE SIZE=50 NAME="file1"></td></tr>
<tr><td><b>Save To:</b>  
Disk <INPUT TYPE=RADIO NAME="saveto" value="disk" checked>  
Database <INPUT TYPE=RADIO NAME="saveto" value="database">
</td></tr>
<tr><td align="center"><INPUT TYPE=SUBMIT VALUE="Upload!"></td></tr>
</TABLE>
</FORM>
</BODY>
<script language="javascript">
function checkit(){
var fullname = document.upload.fullname.value;
var lastname = document.upload.lastname.value;
var phone = document.upload.phone.value;
var file1 = document.upload.file1.value;
if (file1 == "&quot

{
alert("File name is required!&quot

;
return false;
}
}

</script>
</HTML>

----------------
Uploadexmple.asp
----------------
<%@ Language=VBScript %>
<%Option Explicit%>

<%

'NOTE - YOU MUST HAVE VBSCRIPT v5.0 INSTALLED ON YOUR WEB SERVER
'FOR THIS LIBRARY TO FUNCTION CORRECTLY. YOU CAN OBTAIN IT
'FREE FROM MICROSOFT WHEN YOU INSTALL INTERNET EXPLORER 5.0
'OR LATER.
'
' Added the following lines to accomodate for large files taking a long time.
Dim timeout, spath
timeout = 3600 ' In seconds
Server.ScriptTimeout = timeout

' Create the FileUploader
Dim Uploader, File
Set Uploader = New FileUploader

' This starts the upload process
Uploader.Upload()
'
Uploader.Form("FormDataName&quot

'******************************************
' Use [FileUploader object].Form to access
' additional form variables submitted with
' the file upload(s). (used below)
'******************************************
Response.Write "<b>Thank you for your upload<br> " & _
"First name: " & Uploader.Form("firstname&quot

& "<br>" & _
"Last name: " & Uploader.Form("lastname&quot

& "<br>" & _
"Phone: " & Uploader.Form("phone&quot

& "<br>"

' Check if any files were uploaded
If Uploader.Files.Count = 0 Then
Response.Write "File(s) not uploaded."
Else
' Loop through the uploaded files
For Each File In Uploader.Files.Items
' Check where the user wants to save the file
If Uploader.Form("saveto&quot

= "disk" Then
' Save the file
File.SaveToDisk "c:\Dev\DMS\UploadedFiles\"
File.SaveToDisk Server.mapPath("temp&quot

ElseIf Uploader.Form("saveto&quot

= "database" Then
' Open the table you are saving the file to
Set RS = Server.CreateObject("ADODB.Recordset&quot

RS.Open "MyUploadTable", "CONNECT STRING OR ADO.Connection", 2, 2
RS.AddNew ' create a new record
RS("filename&quot

= File.FileName
RS("filesize&quot

= File.FileSize
RS("contenttype&quot

= File.ContentType
' Save the file to the database
File.SaveToDatabase RS("filedata&quot

' Commit the changes and close
RS.Update
RS.Close
End If

' Output the file details to the browser
Response.Write "File Uploaded Spath: " & spath & " : " & File.FileName & "<br>"
Response.Write "Size: " & File.FileSize & " bytes<br>"
Response.Write "Type: " & File.ContentType & "<br><br>"
Next
End If

%>
---------------------------
UPLOAD.ASP
---------------------------

<%
' timeout = 3600 ' In seconds
Server.ScriptTimeout = 3600
'***************************************
' File: Upload.asp
' Author: Jacob "Beezle" Gilley
' Email: avis7@airmail.net
' Date: 12/07/2000
' Comments: The code for the Upload, CByteString,
' CWideString subroutines was originally
' written by Philippe Collignon...or so
' he claims. Also, I am not responsible
' for any ill effects this script may
' cause and provide this script "AS IS".
' Enjoy!
'****************************************

Class FileUploader
Public Files
Private mcolFormElem

Private Sub Class_Initialize()
Set Files = Server.CreateObject("Scripting.Dictionary&quot

Set mcolFormElem = Server.CreateObject("Scripting.Dictionary&quot

End Sub

Private Sub Class_Terminate()
If IsObject(Files) Then
Files.RemoveAll()
Set Files = Nothing
End If
If IsObject(mcolFormElem) Then
mcolFormElem.RemoveAll()
Set mcolFormElem = Nothing
End If
End Sub

Public Property Get Form(sIndex)
Form = ""
If mcolFormElem.Exists(LCase(sIndex)) Then Form = mcolFormElem.Item(LCase(sIndex))
End Property

Public Default Sub Upload()
Dim biData, sInputName
Dim nPosBegin, nPosEnd, nPos, vDataBounds, nDataBoundPos
Dim nPosFile, nPosBound

biData = Request.BinaryRead(Request.TotalBytes)
nPosBegin = 1
nPosEnd = InstrB(nPosBegin, biData, CByteString(Chr(13)))

If (nPosEnd-nPosBegin) <= 0 Then Exit Sub

vDataBounds = MidB(biData, nPosBegin, nPosEnd-nPosBegin)
nDataBoundPos = InstrB(1, biData, vDataBounds)

Do Until nDataBoundPos = InstrB(biData, vDataBounds & CByteString("--&quot

)

nPos = InstrB(nDataBoundPos, biData, CByteString("Content-Disposition&quot

)
nPos = InstrB(nPos, biData, CByteString("name=&quot

)
nPosBegin = nPos + 6
nPosEnd = InstrB(nPosBegin, biData, CByteString(Chr(34)))
sInputName = CWideString(MidB(biData, nPosBegin, nPosEnd-nPosBegin))
nPosFile = InstrB(nDataBoundPos, biData, CByteString("filename=&quot

)
nPosBound = InstrB(nPosEnd, biData, vDataBounds)

If nPosFile <> 0 And nPosFile < nPosBound Then
Dim oUploadFile, sFileName
Set oUploadFile = New UploadedFile

nPosBegin = nPosFile + 10
nPosEnd = InstrB(nPosBegin, biData, CByteString(Chr(34)))
sFileName = CWideString(MidB(biData, nPosBegin, nPosEnd-nPosBegin))
oUploadFile.FileName = Right(sFileName, Len(sFileName)-InStrRev(sFileName, "\&quot

)

nPos = InstrB(nPosEnd, biData, CByteString("Content-Type:&quot

)
nPosBegin = nPos + 14
nPosEnd = InstrB(nPosBegin, biData, CByteString(Chr(13)))

oUploadFile.ContentType = CWideString(MidB(biData, nPosBegin, nPosEnd-nPosBegin))

nPosBegin = nPosEnd+4
nPosEnd = InstrB(nPosBegin, biData, vDataBounds) - 2
oUploadFile.FileData = MidB(biData, nPosBegin, nPosEnd-nPosBegin)

If oUploadFile.FileSize > 0 Then Files.Add LCase(sInputName), oUploadFile
Else
nPos = InstrB(nPos, biData, CByteString(Chr(13)))
nPosBegin = nPos + 4
nPosEnd = InstrB(nPosBegin, biData, vDataBounds) - 2
If Not mcolFormElem.Exists(LCase(sInputName)) Then mcolFormElem.Add LCase(sInputName), CWideString(MidB(biData, nPosBegin, nPosEnd-nPosBegin))
End If

nDataBoundPos = InstrB(nDataBoundPos + LenB(vDataBounds), biData, vDataBounds)
Loop
End Sub

'String to byte string conversion
Private Function CByteString(sString)
Dim nIndex
For nIndex = 1 to Len(sString)
CByteString = CByteString & ChrB(AscB(Mid(sString,nIndex,1)))
Next
End Function

'Byte string to string conversion
Private Function CWideString(bsString)
Dim nIndex
CWideString =""
For nIndex = 1 to LenB(bsString)
CWideString = CWideString & Chr(AscB(MidB(bsString,nIndex,1)))
Next
End Function
End Class

Class UploadedFile
Public ContentType
Public FileName
Public FileData

Public Property Get FileSize()
FileSize = LenB(FileData)
End Property

Public Sub SaveToDisk(sPath)
Dim oFS, oFile
Dim nIndex

If sPath = "" Or FileName = "" Then Exit Sub
If Mid(sPath, Len(sPath)) <> "\" Then sPath = sPath & "\"

Set oFS = Server.CreateObject("Scripting.FileSystemObject&quot

If Not oFS.FolderExists(sPath) Then Exit Sub

Set oFile = oFS.CreateTextFile(sPath & FileName, True)

For nIndex = 1 to LenB(FileData)
oFile.Write Chr(AscB(MidB(FileData,nIndex,1)))
Next

oFile.Close
End Sub

Public Sub SaveToDatabase(ByRef oField)
If LenB(FileData) = 0 Then Exit Sub

If IsObject(oField) Then
oField.AppendChunk FileData
End If
End Sub

End Class
%>

jkukis · May 31, 2002

FengShui1998,
I copied and pasted the code into the three seperate files above. When i open up the homepage.asp and enter data and pick a file, after clicking submit, it just displays me the code from uploadexmple.asp, instead of actually running it.
I created the temp directory under the same directory the three files are in, what am i doing wrong??

FengShui1998 · May 31, 2002

jkukis,

Sorry,

delete this line...

File.SaveToDisk "c:\Dev\DMS\UploadedFiles\"

fengshui_1998

Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

writing form data to a text file AND upload a file

jkukis

Technical User

jkukis

Technical User

FengShui1998

MIS

jkukis

Technical User

FengShui1998

MIS

jkukis

Technical User

FengShui1998

MIS

Similar threads

Part and Inventory Search

Sponsor