asked on

Upload File and Insert Record into Database - 2 Actions with 1 Button

I've seen similiar questions throughout the web but I'm still struggling with this one.

I have a form where a user supplies information and then can brows to for a file to upload if needed.

I'm using CS4 and ASP with access db (users choice). I have successfully created the form which stores the path/filename in a text field in the database on the insert record server behavior. However, i have not been successful at uploading the file to the server first. I would like the user to only have to browse for the file once and have the submit button upload the file and insert the record if possible.

I have read and tried using Free ASP Upload. I can get the upload to work fine. But the upload and insert record are not working togther.

Can someone help me get these two actions done with one Submit Button please?

Kechka

Can you send your page code?

Mark Franz

I don't use Free ASP Upload, I used Persits ASPUpload, but the scripts should be similar. The first page of code is the page that uploads an image to a directory and updates an existing record in an Access db. The second page is the one that submits information.

<%
Set Upload = Server.CreateObject("Persits.Upload")

thePath = Session("FolderPath")
Upload.SetMaxSize 500000, True 'Limit image size
' Intercept all exceptions to display user-friendly error
On Error Resume Next 
Upload.Save(thePath)

' Error Check
loadStr = ""
' 8 is the number of "File too large" exception
If Err.Number = 8 Then
   Msgstr = "Your submitted file is too large, going back.."
   loadStr = "goBack();"
Else
   If Err <> 0 Then
      Msgstr = "An error occurred with your image, going back.."
	  loadStr = "goBack();"
   End If
End If

' Intercept all exceptions to display user-friendly error
On Error Resume Next

For Each File in Upload.Files
	If File.ImageType = "UNKNOWN" Then
		Msgstr = "This is not an image file, going back.."
		loadStr = "goBack();"
	End If
Next
Set conn = Server.CreateObject("ADODB.Connection")
'conn.ConnectionTimeout = 10
'conn.CommandTimeout = 10
'conn.Mode = 3
conn.open "DBQ=" & Server.MapPath("_database/Rides.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};"
Set rs = Server.CreateObject("ADODB.Recordset")

sql = "SELECT * FROM MyRide WHERE Username='" & Upload.Form("UserName") &"'" 
'Response.Write sql
rs.Open sql, conn, 3, 3

rs("FirstName") = Upload.Form("FirstName")
rs("LastName")  = Upload.Form("LastName")
rs("Make") = Upload.Form("Make")
rs("Model") = Upload.Form("Model")
rs("YearMade") = Upload.Form("YearMade")
rs("Email") = Upload.Form("Email")
rs("features") = Upload.Form("Features")

' Lets loop through and update the file name and description to the db

i = 1
For Each File in Upload.Files 
	rs("Description"&i&"") = Upload.Form("Description"&i&"")
	rs("ImageName"&i&"") = File.FileName 
	'Response.Write File.Size & " - " & File.Name & " - " & File.FileName & "<br>"
	i = i + 1 'Increment i
Next

'Post the form details and images to the users directory.
rs.Update 

On Error Resume Next
'Set Upload = Nothing
conn.Close
set rs = nothing
set conn = nothing
Session.Remove("folderPath")
'End If

%>
<!DOCTYPE html public "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<HTML>
<HEAD>
<META http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<LINK rel="STYLESHEET" href="class/all.css" type="text/css">
<SCRIPT LANGUAGE="JavaScript" TYPE="text/javascript" src="scripts/preload.js"></SCRIPT>
<SCRIPT LANGUAGE="JavaScript1.2" SRC="scripts/HM_Loader.js" TYPE="text/javascript"></SCRIPT>
<script>
function goBack(){
setTimeout('history.go(-1)', 4000);
}
</script> 
<!--#include file="inc/include.asp"-->
</HEAD>
<BODY bgcolor="#FFFFFF" onLoad="<%=loadStr%>">
	<TABLE border="0" cellpadding="10" cellspacing="0" width="100%">
		<TR>
			<TD>	<!--#include file="inc/menu.asp"-->
	<TABLE cellspacing="10" cellpadding="10" border="0" width="80%" align="center">
		<TR>
			<TD>	
			</TD>
		</TR>
		<TR>
			<TD>	<% If loadStr > "" Then
							Response.Write msgStr
						Else
							Response.Write "Information loaded succesfully!<p> Click <a href=""myView.asp?uname="&Upload.Form("UserName")&">here </a> to view your ride."
						End If 'Call BuildMyRide("varSignin", Upload.Form("UserName"))%>
			</TD>
		</TR>
	</TABLE>
</BODY>
</HTML>
----------------------------------------------------------
<!DOCTYPE html public "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<LINK rel="STYLESHEET" href="class/all.css" type="text/css">
<SCRIPT LANGUAGE="JavaScript" TYPE="text/javascript" src="scripts/preload.js"></SCRIPT>
<SCRIPT LANGUAGE="JavaScript1.2" SRC="scripts/HM_Loader.js" TYPE="text/javascript"></SCRIPT>

</HEAD>
<BODY bgcolor="#FFFFFF">
<!--#include file="inc/menu.asp"-->
	<TABLE cellspacing="10" cellpadding="10" border="0" align="center">
		<TR>
			<TD>	Submit your vehicle to our website, we would love to hear from you about your ride!&nbsp;&nbsp;&nbsp;<FONT color="red">*</FONT> Required
<P>
				<TABLE border="0" cellpadding="4" cellspacing="0" width="650" align="center">
					<TR>
						<TD>
							<FORM action="submit_ride_test.asp" method="post" ENCTYPE="multipart/form-data"  name="ride1" id="ride1">
								<TR>
									<TD>	First Name: <FONT color="red">*</FONT>
									</TD>
									<TD>										
										<INPUT type="text" name="FirstName">
									</TD>
									<TD width="78">	Last Name: <FONT color="red">*</FONT>
									</TD>
									<TD>										
										<INPUT type="text" name="LastName">
									</TD>
								</TR>
								<TR>
									<TD>	Make: <FONT color="red">*</FONT>
									</TD>
									<TD>										
										<INPUT type="text" name="Make">
									</TD>
									<TD>	Model: <FONT color="red">*</FONT>
									</TD>
									<TD>										
										<INPUT type="text" name="Model">
									</TD>
								</TR>
								<TR>
									<TD width="205" valign="top">	Vehicle Features: <FONT color="red">*</FONT><BR>
									</TD>
									<TD colspan="3">
										<TEXTAREA cols="82" rows="6" name="features" id="features" onClick="document.ride1.features.value='';" class="TextField">Enter such things as engine, trans, mods, paint and body, interior...&nbsp;&nbsp;Anything you want to share about your ride.  

[click to clear]</TEXTAREA>
									</TD>
								</TR>
								<TR>
									<TD colspan="4">	You can upload as many as 3 images of your car, the images will be resized to 800x600 automatically and are limited to 500k in size.&nbsp;&nbsp;Accepted image types include .jpg, .gif and .bmp
									</TD>
						</TD>
					</TR>
					<TR>
						<TD>	Image 1:
						</TD>
						<TD>							
							<INPUT TYPE=FILE NAME="FILE1">
						</TD>
						<TD>	Description:
						</TD>
						<TD>							
							<INPUT TYPE=TEXT NAME="DESCR1">
						</TD>
					</TR>
					<TR>
						<TD>	Image 2:
						</TD>
						<TD>							
							<INPUT TYPE=FILE NAME="FILE2">
						</TD>
						<TD>	Description:
						</TD>
						<TD>							
							<INPUT TYPE=TEXT NAME="DESCR2">
						</TD>
					</TR>
					<TR>
						<TD>	Image 3:
						</TD>
						<TD>							
							<INPUT TYPE=FILE NAME="FILE3">
						</TD>
						<TD>	Description:
						</TD>
						<TD>							
							<INPUT TYPE=TEXT NAME="DESCR3">
						</TD>
					</TR>
					<TR>
						<TD>							
							<INPUT TYPE=SUBMIT VALUE="Upload!">
						</TD>
					</TR>
				</TABLE>
</FORM>
			</TD>
		</TR>
	</TABLE>
</BODY>
</HTML>