I'm hoping someone can get me out of the rut
I'm trying to save the file to my server and the actual file name to the database. Then I make a link and not have the problems of large blobs in my database.
get this error,
Microsoft VBScript runtime error '800a01b6'
Object doesn't support this property or method: 'UserFileName'
/bodge1.asp, line 20
this is the asp
<%
Dim status, email, image, rs, cn, strsql, f1, newpath, cstring, UserFileName, up1
cstring = "DSN=profile;"
up1 = UserFileName
Set up1 = Server.Createobject("Persits.Upload.1"
f1 = Server.MapPath("_/private/images/"
newpath = f1 & up1.UserFileName
Set cn = Server.CreateObject ("adodb.Connection"
cn.Open cstring
strSQL = "UPDATE profile SET image = '" & up1.UserFileName & "' Where email" & _
"like '" & email & "'"
cn.Execute(strSQL)
cn.Close
Set cn = Nothing
up1.SaveAs newpath
set up1 = Nothing
%>
</body>
I'm trying to save the file to my server and the actual file name to the database. Then I make a link and not have the problems of large blobs in my database.
get this error,
Microsoft VBScript runtime error '800a01b6'
Object doesn't support this property or method: 'UserFileName'
/bodge1.asp, line 20
this is the asp
<%
Dim status, email, image, rs, cn, strsql, f1, newpath, cstring, UserFileName, up1
cstring = "DSN=profile;"
up1 = UserFileName
Set up1 = Server.Createobject("Persits.Upload.1"
f1 = Server.MapPath("_/private/images/"
newpath = f1 & up1.UserFileName
Set cn = Server.CreateObject ("adodb.Connection"
cn.Open cstring
strSQL = "UPDATE profile SET image = '" & up1.UserFileName & "' Where email" & _
"like '" & email & "'"
cn.Execute(strSQL)
cn.Close
Set cn = Nothing
up1.SaveAs newpath
set up1 = Nothing
%>
</body>