I am having trouble with uploading a file to a website. I can not figure
what I am doing wrong. I have a .asp file that you put a username and
password in that is connected to a database. One of the buttons you push is
"Add Press Releasses". It prompts you to choose your file and when you
select the upload button it just refreshes. Here is the code:
this part works:
Dim Stage
Dim Count, i
Dim Action
Action=Request.Form("Action")
Dim AdminCon:set AdminCon=Server.CreateObject("ADODB.Connection")
AdminCon.Provider = "Microsoft.Jet.OLEDB.4.0"
AdminCon.Open Server.MapPath("databasename.mdb")
Dim rs:set rs=Server.CreateObject("ADODB.Recordset")
Response.Write("<form name=Subscribe action=AdminPress.asp
method=post>")
Dim HostPath
HostPath = "http://" & Request.ServerVariables("SERVER_NAME") &
Left(Request.ServerVariables("PATH_INFO"), Instr(1,
Request.ServerVariables("PATH_INFO"), "adminpress.asp", 1) - 1)
CodeFile="UploadPressRelease.aspx.vb"
Inherits="System.Web.UI.Page"
Stage=Request.Form("Pass")
if Len(Stage)=0 then
Response.Write("<table>")
Response.Write("<tr><td>")
Response.Write("User:</td><td>")
Response.Write("<input id=User name=UserText style=""width: 150px""
type=""text"" />
")
Response.Write("</td></tr>")
Response.Write("<tr><td>")
Response.Write("Password:</td><td>")
Response.Write("<input id=Pass name=Pass style=""width: 150px""
type=""password"" />")
Response.Write("</td></tr>")
Response.Write("<tr><td></td><td>")
Response.Write("<input type=submit name=Login value=Login />")
Response.Write("</td></tr>")
Response.Write("</table>")
else
Dim User
User=Request.Form("UserText")
set rs = AdminCon.Execute("Select * from admin")
rs.Filter = "User='" & User & "' and Password='" & Stage & "'"
if rs.EOF then
Response.Write("User/Password not found")
Response.Write("<input type=submit name=TryAgain value=""Try
Again"" />")
else
Response.Write("<input type=hidden name=""UserText"" Value=" &
User & " />")
Response.Write("<input type=hidden name=""Pass"" Value=" & Stage
& " />")
Response.Write("<input type=submit name=""Action"" value=""Add
Press Releases Test"" />")
HERE IS THE PART THAT IS NOT WORKING:
if Action="Add Press Releases Test" then
Dim UpPathtest
Dim UpNametest
UpPathtest = "/lol"
response.Write "<UpNametest = Dir(UpPathtest, vbDirectory)>"
dim filename
dim filefield
response.Write
"<FileName.InnerHtml=FileField.PostedFile.FileName>"
response.Write "<UploadDetails.Visible = True>"
Dim strFileName
response.Write "<strFileName = FileField.PostedFile.FileName>"
Dim c
response.Write "<form id=formFileUploadtest method=post
enctype=Multipart/Form-Data runat=Server>"
response.Write "<b>File Upload In ASP.Net</b>"
response.Write "<hr />"
response.Write "
"
response.Write "Choose Your File To Upload :
"
response.Write "<input id=FileField type=File runat=server
size=60 />
"
response.Write "
"
response.Write "<Button ID=UploadButtontest runat=server
Text=Go /></button>
"
response.Write "<div id=UploadDetails visible=true
runat=server>"
response.Write "File Name: <span id=FileName
runat=server/>
"
response.Write "File Content: <span id=FileContent
runat=server/>
"
response.Write "File Size: <span id=FileSize
runat=server/>bytes
"
response.Write "</div>"
response.Write "<c =
System.IO.Path.GetFileName(strFileName)>"
response.Write "<Try>"
response.write"<FileField.PostedFile.SaveAs(\lollaf\ +
c)>"
response.Write "<Span1.InnerHtml = File Uploaded
Sucessfully.>"
response.Write "<Catch Exp As Exception>"
response.Write "<Span1.InnerHtml = Some Error occured.>"
response.Write "<UploadDetails.Visible = False>"
response.Write "<End Try>"
response.Write "<span ID=Span1 style=Color:Red runat=Server/>"
response.Write "</form>"
end if
end if
set rs=Nothing
end if
Yes I am new to all of this.
Thank you for your help in advance.
s
