Using aspjpeg to upload info into a SQL SERVER database.

<%
...
Set rs = Server.CreateObject("adodb.recordset")
rs.Open "images", strConnect, 1, 3
rs.AddNew
rs("image_blob").Value = Jpeg.Binary
 
rs.Update
...
%> 

                                              

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

Set rs = Server.CreateObject("adodb.recordset")
rs.Open "images", strConnect, 1, 3
rs.AddNew
rs("image_blob").Value = Jpeg.Binary
rs("imgheight").value = Jpeg.Height
rs("imgwidth").value = Jpeg.Width
 
rs.Update
                                              

1:
2:
3:
4:
5:
6:
7:
8:

<FORM ACTION="/admin/uploadimage_2.asp" method="post" ENCTYPE="multipart/form-data">
<TABLE BORDER="1" CELLSPACING="0" CELLPADDING="2">
	<TR><TD BGCOLOR="#E0FFF0" ALIGN="CENTER"><FONT FACE="Arial" SIZE="2" COLOR="#000000"><B>Select an Image</B></FONT></TD></TR>
	<TR><TD BGCOLOR="#EEEEEE"><INPUT TYPE="FILE" NAME="myFile" SIZE="40"></TD></TR>
	<TR><TD BGCOLOR="#EEEEEE">&nbsp;</TD></TR>
	<TR>
	  <TD BGCOLOR="#EEEEEE"><input type="SUBMIT" value="Upload Image" /></TD>
	  </TR>
</TABLE>
</FORM>

                                              

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

<%
	Set Upload = Server.CreateObject("Persits.Upload")
	Upload.OverwriteFiles = False
	Upload.SetMaxSize 5000000, True
	Upload.CodePage = 65001
 
	On Error Resume Next	
	Count = Upload.Save("\\nas43ent\domains\m\metrolettings.com\user\htdocs\images\property")
 
	If Err <> 0 or Count = 0 Then
		
%>
 
<FONT SIZE="3" FACE="Arial" COLOR="#FF0000"><% If Err <> 0 Then Response.Write "An error occurred:" & Err.Description Else Response.Write "Nothing has been uploaded."%></B></FONT>
<P>
<FONT SIZE="2" FACE="Arial"><A HREF="/admin/uploadimage.asp">Try again</A>.</FONT>
 
<%		
	Else
		On Error Goto 0
		Set File = Upload.Files(1)
		If File.ImageType = "UNKNOWN" Then
			File.Delete
%>
<FONT SIZE="3" FACE="Arial" COLOR="#FF0000">This is not a valid image file.</B></FONT>
<P>
<FONT SIZE="3" FACE="Arial"><A HREF="/admin/uploadimage.asp">Try again</A>.</FONT>
<%		Else
 
			' Special handling of TIFF since AspUpload cannot extract TIFF dimensions
			if File.ImageType = "TIF" Then
				Set Tiff = Server.CreateObject("Persits.Jpeg")
				Tiff.Open File.Path
				ImageWidth = Tiff.OriginalWidth				
				ImageHeight = Tiff.OriginalHeight
				Tiff.Close
			Else
				ImageWidth = File.ImageWidth
				ImageHeight = File.ImageHeight
			End if
%>
 
<FONT SIZE="2" FACE="Arial">
<B>The following <% = File.ImageType%> image has been uploaded:</B><P>
<TABLE CELLSPACING="0" CELLPADDING="2" BORDER="1">
	<TR><TD><FONT SIZE="2" FACE="Arial"><B>Path:</B></FONT></TD>
	<TD><FONT SIZE="2" FACE="Arial"><% = Server.HTMLEncode(File.OriginalPath) %></FONT></TD></TR>
	<TR><TD><FONT SIZE="2" FACE="Arial"><B>Size:</B></FONT></TD>
	<TD><FONT SIZE="2" FACE="Arial"><% = File.Size %> bytes</FONT></TD></TR>
	<TR><TD><FONT SIZE="2" FACE="Arial"><B>Dimensions:</B></FONT></TD>
	<TD><FONT SIZE="2" FACE="Arial"><% = ImageWidth %> x <% = ImageHeight %> pixels</FONT></TD></TR>
</TABLE>
<P>
<FORM ACTION="/admin/uploadimage_3.asp" METHOD="GET">
	<INPUT TYPE="HIDDEN" NAME="Path" VALUE="<% = Server.HtmlEncode(File.Path) %>">
	<INPUT TYPE="HIDDEN" NAME="Height" VALUE="<% = ImageHeight %>">
	<INPUT TYPE="HIDDEN" NAME="Width" VALUE="<% = ImageWidth %>">
	<INPUT TYPE="HIDDEN" NAME="scale" VALUE="50">
	<INPUT TYPE="HIDDEN" NAME="NewWidth" VALUE="100">
	<INPUT TYPE="HIDDEN" NAME="NewHeight" VALUE="100">
	<INPUT TYPE="HIDDEN" NAME="ResizeOption" VALUE="1">
	<INPUT TYPE="HIDDEN" NAME="Quality" VALUE="1">
	<INPUT TYPE="HIDDEN" NAME="Sharpen" VALUE="">
	<INPUT TYPE="HIDDEN" NAME="SharpenValue" VALUE="130">
	<INPUT TYPE="HIDDEN" NAME="Rotate" VALUE="0">
	<INPUT TYPE="SUBMIT" VALUE="Continue...">	
</FORM>
<P>
<IMG SRC="/images/property/<% = Server.HtmlEncode(File.ExtractFileName) %>">
<P>
<FONT SIZE="2" FACE="Arial"><A HREF="/admin/uploadimage.asp">Upload another image</A></FONT>
 
 
 
<%
 
		End If
	End If
%>
                                              

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:

<%
      Set Upload = Server.CreateObject("Persits.Upload")
      Upload.OverwriteFiles = False
      Upload.SetMaxSize 5000000, True
      Upload.CodePage = 65001
 
      On Error Resume Next      
'      Count = Upload.Save("\\nas43ent\domains\m\metrolettings.com\user\htdocs\images\property")
Set rs = Server.CreateObject("adodb.recordset")
rs.Open "images", strConnect, 1, 3
rs.AddNew
rs("image_blob").Value = Jpeg.Binary
rs("imgheight").value = Jpeg.Height
rs("imgwidth").value = Jpeg.Width
rs.Update
 
'     If Err <> 0 or Count = 0 Then
            
%>
                                              

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19: