File Upload question

am 21.04.2008 05:52:00 von csleimbach

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("

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("")
Response.Write("")
Response.Write("")
Response.Write("")
Response.Write("

") Response.Write("User:	") Response.Write(" type=""text"" /> ") Response.Write("
") Response.Write("Password:	") Response.Write(" type=""password"" />") Response.Write("
	") Response.Write("") Response.Write("

")
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(" Again"" />")
else
Response.Write("")
Response.Write("")
Response.Write(" 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 ""
dim filename
dim filefield
response.Write
""
response.Write ""
Dim strFileName
response.Write ""
Dim c
response.Write " enctype=Multipart/Form-Data runat=Server>"
response.Write "File Upload In ASP.Net"
response.Write "

"
response.Write "
"
response.Write "Choose Your File To Upload :
"
response.Write " size=60 />
"
response.Write "
"
response.Write "
"
response.Write "

runat=server>"
response.Write "File Name: runat=server/>
"
response.Write "File Content: runat=server/>
"
response.Write "File Size: runat=server/>bytes
"
response.Write "

"
response.Write " System.IO.Path.GetFileName(strFileName)>"
response.Write ""
response.write" c)>"
response.Write " Sucessfully.>"
response.Write ""
response.Write ""
response.Write ""
response.Write ""
response.Write ""
response.Write ""
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

Re: File Upload question

am 21.04.2008 11:57:53 von lexa

On Apr 21, 5:52=A0am, csleimbach
wrote:
> I am having trouble with uploading a file to a website. =A0I can not figur=
e
> what I am doing wrong. =A0I have a .asp file that you put a username and
> password in that is connected to a database. =A0One of the buttons you pus=
h is
> "Add Press Releasses". =A0It prompts you to choose your file and when you
> select the upload button it just refreshes. =A0Here is the code:
>
> this part works:
> Dim Stage
> =A0 =A0 Dim Count, i
> =A0 =A0 Dim Action
> =A0 =A0 Action=3DRequest.Form("Action")
> =A0 =A0 Dim AdminCon:set AdminCon=3DServer.CreateObject("ADODB.Connection"=
)
> =A0 =A0 =A0 =A0 AdminCon.Provider =3D "Microsoft.Jet.OLEDB.4.0"
> =A0 =A0 =A0 =A0 AdminCon.Open Server.MapPath("databasename.mdb")
> =A0 =A0 Dim rs:set rs=3DServer.CreateObject("ADODB.Recordset")
> =A0 =A0 Response.Write("

> method=3Dpost>") =A0 =A0
> =A0 =A0 Dim HostPath
> =A0 =A0 HostPath =3D "http://" & Request.ServerVariables("SERVER_NAME") &
> Left(Request.ServerVariables("PATH_INFO"), Instr(1,
> Request.ServerVariables("PATH_INFO"), "adminpress.asp", 1) - 1)
> =A0 =A0 =A0CodeFile=3D"UploadPressRelease.aspx.vb"
> =A0 =A0 =A0Inherits=3D"System.Web.UI.Page"
> Stage=3DRequest.Form("Pass")
> =A0 =A0 if Len(Stage)=3D0 then
> =A0 =A0 =A0 =A0 Response.Write("")
> =A0 =A0 =A0 =A0 Response.Write("")
> =A0 =A0 =A0 =A0 Response.Write("")
> =A0 =A0 =A0 =A0 Response.Write("")
> =A0 =A0 =A0 =A0 Response.Write("

") > =A0 =A0 =A0 =A0 Response.Write("User:	") > =A0 =A0 =A0 =A0 Response.Write(" "width: 150px"" > type=3D""text"" /> ") > =A0 =A0 =A0 =A0 Response.Write("
") > =A0 =A0 =A0 =A0 Response.Write("Password:	") > =A0 =A0 =A0 =A0 Response.Write(" th: 150px"" > type=3D""password"" />") > =A0 =A0 =A0 =A0 Response.Write("
	") > =A0 =A0 =A0 =A0 Response.Write(" Login />") > =A0 =A0 =A0 =A0 Response.Write("

")
> =A0 =A0 else
> =A0 =A0 =A0 =A0 Dim User
> =A0 =A0 =A0 =A0 User=3DRequest.Form("UserText")
> =A0 =A0 =A0 =A0 set rs =3D AdminCon.Execute("Select * from admin")
> =A0 =A0 =A0 =A0 rs.Filter =3D "User=3D'" & User & "' and Password=3D'" & S=
tage & "'"
> =A0 =A0 =A0 =A0 if rs.EOF then
> =A0 =A0 =A0 =A0 =A0 =A0 Response.Write("User/Password not found")
> =A0 =A0 =A0 =A0 =A0 =A0 Response.Write(" in value=3D""Try
> Again"" />")
> =A0 =A0 =A0 =A0 else
> =A0 =A0 =A0 =A0 =A0 =A0 Response.Write(" Text"" Value=3D" &
> User & " />")
> =A0 =A0 =A0 =A0 =A0 =A0 Response.Write(" "" Value=3D" & Stage
> & " />")
> =A0 =A0 =A0 =A0 =A0 =A0 Response.Write(" on"" value=3D""Add
> Press Releases Test"" />")
>
> HERE IS THE PART THAT IS NOT WORKING:
> if Action=3D"Add Press Releases Test" then
> =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0Dim UpPathtest
> =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0Dim UpNametest
> =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0UpPathtest =3D "/lol"
> =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0response.Write " est, vbDirectory)>"
> =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0dim filename
> =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0dim filefield
> =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0response.Write
> ""
> =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0response.Write " True>"
> =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0Dim strFileName
> =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0response.Write " PostedFile.FileName>"
> =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0Dim c
> =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0response.Write " st method=3Dpost =A0
> enctype=3DMultipart/Form-Data runat=3DServer>"
> =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 response.Write "File Upload In ASP.Net<=
/b>"
> =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 response.Write "
"
> =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 response.Write "
"
> =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 response.Write "Choose Your File =A0To Upl=
oad :
"
> =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 response.Write " =3DFile runat=3Dserver
> size=3D60 />
"
> =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 response.Write "
"
> =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 response.Write "
"
> =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 response.Write "
tails visible=3Dtrue
> runat=3Dserver>"
> =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 response.Write "File Name:=
> runat=3Dserver/>
"
> =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 response.Write "File Conte=
nt: > runat=3Dserver/>
"
> =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 response.Write "File Size:=
> runat=3Dserver/>bytes
"
> =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 response.Write "
"
> =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 response.Write " > System.IO.Path.GetFileName(strFileName)>"
> =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 response.Write ""
> =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 response.write" le.SaveAs(\lollaf\ +
> c)>"
> =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 response.Write " =3D File Uploaded
> Sucessfully.>"
> =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 response.Write " ption>"
> =A0 =A0 =A0 =A0 =A0 =A0 response.Write " cured.>"
> =A0 =A0 =A0 =A0 =A0 =A0 response.Write ""=

> =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 response.Write ""
> =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 response.Write " olor:Red runat=3DServer/>"
> =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 response.Write ""
> =A0 =A0 =A0 =A0 =A0 =A0 end if
> =A0 =A0 =A0 =A0 end if
> =A0 =A0 =A0 =A0 set rs=3DNothing
> =A0 =A0 end if
>
> Yes I am new to all of this.
>
> Thank you for your help in advance.
> s

Is there any specific error? The part that is not working is quite
big :-)

Re: File Upload question
am 21.04.2008 14:54:01 von csleimbach
There is no error. When I push the upload button the file does not upload.
I must be missing something.

Thank you for helping me.

Stacy

"Alexey Smirnov" wrote:

> On Apr 21, 5:52 am, csleimbach
> wrote:
> > 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("
> > 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("")
> > Response.Write("")
> > Response.Write("")
> > Response.Write("")
> > Response.Write("
")
> > Response.Write("User: ")
> > Response.Write(" > > type=""text"" />
")
> > Response.Write("
")
> > Response.Write("Password: ")
> > Response.Write(" > > type=""password"" />")
> > Response.Write("
")
> > Response.Write("")
> > Response.Write("
")
> > 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(" > > Again"" />")
> > else
> > Response.Write("")
> > Response.Write("")
> > Response.Write(" > > 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 ""
> > dim filename
> > dim filefield
> > response.Write
> > ""
> > response.Write ""
> > Dim strFileName
> > response.Write ""
> > Dim c
> > response.Write " > > enctype=Multipart/Form-Data runat=Server>"
> > response.Write "File Upload In ASP.Net"
> > response.Write "
"
> > response.Write "
"
> > response.Write "Choose Your File To Upload :
"
> > response.Write " > > size=60 />
"
> > response.Write "
"
> > response.Write "
"
> > response.Write "
> > runat=server>"
> > response.Write "File Name: > > runat=server/>
"
> > response.Write "File Content: > > runat=server/>
"
> > response.Write "File Size: > > runat=server/>bytes
"
> > response.Write "
"
> > response.Write " > > System.IO.Path.GetFileName(strFileName)>"
> > response.Write ""
> > response.write" > > c)>"
> > response.Write " > > Sucessfully.>"
> > response.Write ""
> > response.Write ""
> > response.Write ""
> > response.Write ""
> > response.Write ""
> > response.Write ""
> > 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
>
> Is there any specific error? The part that is not working is quite
> big :-)
>

Re: File Upload question
am 21.04.2008 15:07:07 von Patrice
Humm ? It looks like you are just writing text to the browser including
writing server side code ???!!!. Use "view source" in your browser to see
what you sent...

You may want to trestert fresh from an ASP.NET tutorial...

--
Patrice

"csleimbach" a écrit dans le message
de news: 9C2207DF-3957-4B58-A320-5BDB6D5871C3@microsoft.com...
> There is no error. When I push the upload button the file does not
> upload.
> I must be missing something.
>
> Thank you for helping me.
>
> Stacy
>
> "Alexey Smirnov" wrote:
>
>> On Apr 21, 5:52 am, csleimbach
>> wrote:
>> > 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("
>> > 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("")
>> > Response.Write("")
>> > Response.Write("")
>> > Response.Write("")
>> > Response.Write("
")
>> > Response.Write("User: ")
>> > Response.Write(" >> > 150px""
>> > type=""text"" />
")
>> > Response.Write("
")
>> > Response.Write("Password: ")
>> > Response.Write(" >> > type=""password"" />")
>> > Response.Write("
")
>> > Response.Write("")
>> > Response.Write("
")
>> > 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(" >> > value=""Try
>> > Again"" />")
>> > else
>> > Response.Write(" >> > Value=" &
>> > User & " />")
>> > Response.Write("")
>> > Response.Write(" >> > 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 " >> > vbDirectory)>"
>> > dim filename
>> > dim filefield
>> > response.Write
>> > ""
>> > response.Write ""
>> > Dim strFileName
>> > response.Write " >> > FileField.PostedFile.FileName>"
>> > Dim c
>> > response.Write " >> > enctype=Multipart/Form-Data runat=Server>"
>> > response.Write "File Upload In ASP.Net"
>> > response.Write "
"
>> > response.Write "
"
>> > response.Write "Choose Your File To Upload :
"
>> > response.Write " >> > runat=server
>> > size=60 />
"
>> > response.Write "
"
>> > response.Write "
"
>> > response.Write "
>> > runat=server>"
>> > response.Write "File Name: >> > runat=server/>
"
>> > response.Write "File Content: >> > id=FileContent
>> > runat=server/>
"
>> > response.Write "File Size: >> > runat=server/>bytes
"
>> > response.Write "
"
>> > response.Write " >> > System.IO.Path.GetFileName(strFileName)>"
>> > response.Write ""
>> >
>> > response.write" >> > c)>"
>> > response.Write " >> > Sucessfully.>"
>> > response.Write ""
>> > response.Write ""
>> > response.Write ""
>> > response.Write ""
>> > response.Write " >> > runat=Server/>"
>> > response.Write ""
>> > 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
>>
>> Is there any specific error? The part that is not working is quite
>> big :-)
>>

Re: File Upload question
am 21.04.2008 19:17:25 von lexa
On Apr 21, 2:54=A0pm, csleimbach
wrote:
> There is no error. =A0When I push the upload button the file does not uplo=
ad. =A0
> I must be missing something.
>
> Thank you for helping me.
>
> Stacy
>
>
>
> "Alexey Smirnov" wrote:
> > On Apr 21, 5:52 am, csleimbach
> > wrote:
> > > I am having trouble with uploading a file to a website. =A0I can not f=
igure
> > > what I am doing wrong. =A0I have a .asp file that you put a username a=
nd
> > > password in that is connected to a database. =A0One of the buttons you=
push is
> > > "Add Press Releasses". =A0It prompts you to choose your file and when =
you
> > > select the upload button it just refreshes. =A0Here is the code:
>
> > > this part works:
> > > Dim Stage
> > > =A0 =A0 Dim Count, i
> > > =A0 =A0 Dim Action
> > > =A0 =A0 Action=3DRequest.Form("Action")
> > > =A0 =A0 Dim AdminCon:set AdminCon=3DServer.CreateObject("ADODB.Connect=
ion")
> > > =A0 =A0 =A0 =A0 AdminCon.Provider =3D "Microsoft.Jet.OLEDB.4.0"
> > > =A0 =A0 =A0 =A0 AdminCon.Open Server.MapPath("databasename.mdb")
> > > =A0 =A0 Dim rs:set rs=3DServer.CreateObject("ADODB.Recordset")
> > > =A0 =A0 Response.Write("

> > > method=3Dpost>") =A0 =A0
> > > =A0 =A0 Dim HostPath
> > > =A0 =A0 HostPath =3D "http://" & Request.ServerVariables("SERVER_NAME"=
) &
> > > Left(Request.ServerVariables("PATH_INFO"), Instr(1,
> > > Request.ServerVariables("PATH_INFO"), "adminpress.asp", 1) - 1)
> > > =A0 =A0 =A0CodeFile=3D"UploadPressRelease.aspx.vb"
> > > =A0 =A0 =A0Inherits=3D"System.Web.UI.Page"
> > > Stage=3DRequest.Form("Pass")
> > > =A0 =A0 if Len(Stage)=3D0 then
> > > =A0 =A0 =A0 =A0 Response.Write("")
> > > =A0 =A0 =A0 =A0 Response.Write("")
> > > =A0 =A0 =A0 =A0 Response.Write("")
> > > =A0 =A0 =A0 =A0 Response.Write("")
> > > =A0 =A0 =A0 =A0 Response.Write("
")
> > > =A0 =A0 =A0 =A0 Response.Write("User: ")
> > > =A0 =A0 =A0 =A0 Response.Write(" =3D""width: 150px""
> > > type=3D""text"" />
")
> > > =A0 =A0 =A0 =A0 Response.Write("
")
> > > =A0 =A0 =A0 =A0 Response.Write("Password: ")
> > > =A0 =A0 =A0 =A0 Response.Write(" "width: 150px""
> > > type=3D""password"" />")
> > > =A0 =A0 =A0 =A0 Response.Write("
")
> > > =A0 =A0 =A0 =A0 Response.Write(" e=3DLogin />")
> > > =A0 =A0 =A0 =A0 Response.Write("
")
> > > =A0 =A0 else
> > > =A0 =A0 =A0 =A0 Dim User
> > > =A0 =A0 =A0 =A0 User=3DRequest.Form("UserText")
> > > =A0 =A0 =A0 =A0 set rs =3D AdminCon.Execute("Select * from admin")
> > > =A0 =A0 =A0 =A0 rs.Filter =3D "User=3D'" & User & "' and Password=3D'"=
& Stage & "'"
> > > =A0 =A0 =A0 =A0 if rs.EOF then
> > > =A0 =A0 =A0 =A0 =A0 =A0 Response.Write("User/Password not found")
> > > =A0 =A0 =A0 =A0 =A0 =A0 Response.Write(" yAgain value=3D""Try
> > > Again"" />")
> > > =A0 =A0 =A0 =A0 else
> > > =A0 =A0 =A0 =A0 =A0 =A0 Response.Write(" UserText"" Value=3D" &
> > > User & " />")
> > > =A0 =A0 =A0 =A0 =A0 =A0 Response.Write(" Pass"" Value=3D" & Stage
> > > & " />")
> > > =A0 =A0 =A0 =A0 =A0 =A0 Response.Write(" Action"" value=3D""Add
> > > Press Releases Test"" />")
>
> > > HERE IS THE PART THAT IS NOT WORKING:
> > > if Action=3D"Add Press Releases Test" then
> > > =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0Dim UpPathtest
> > > =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0Dim UpNametest
> > > =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0UpPathtest =3D "/lol"
> > > =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0response.Write " athtest, vbDirectory)>"
> > > =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0dim filename
> > > =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0dim filefield
> > > =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0response.Write
> > > ""
> > > =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0response.Write " =3D True>"
> > > =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0Dim strFileName
> > > =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0response.Write " eld.PostedFile.FileName>"
> > > =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0Dim c
> > > =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0response.Write " adtest method=3Dpost =A0
> > > enctype=3DMultipart/Form-Data runat=3DServer>"
> > > =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 response.Write "File Upload In ASP.=
Net"
> > > =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 response.Write "
"
> > > =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 response.Write "
"
> > > =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 response.Write "Choose Your File =A0To=
Upload :
"
> > > =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 response.Write " type=3DFile runat=3Dserver
> > > size=3D60 />
"
> > > =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 response.Write "
"
> > > =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 response.Write "
"
> > > =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 response.Write "
adDetails visible=3Dtrue
> > > runat=3Dserver>"
> > > =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 response.Write "File N=
ame: > > > runat=3Dserver/>
"
> > > =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 response.Write "File C=
ontent: > > > runat=3Dserver/>
"
> > > =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 response.Write "File S=
ize: > > > runat=3Dserver/>bytes
"
> > > =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 response.Write "
"
> > > =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 response.Write " > > > System.IO.Path.GetFileName(strFileName)>"
> > > =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 response.Write ""
> > > =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 response.write" edFile.SaveAs(\lollaf\ +
> > > c)>"
> > > =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 response.Write " ml =3D File Uploaded
> > > Sucessfully.>"
> > > =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 response.Write " Exception>"
> > > =A0 =A0 =A0 =A0 =A0 =A0 response.Write " r occured.>"
> > > =A0 =A0 =A0 =A0 =A0 =A0 response.Write " se>"
> > > =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 response.Write ""
> > > =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 response.Write " =3DColor:Red runat=3DServer/>"
> > > =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 response.Write ""
> > > =A0 =A0 =A0 =A0 =A0 =A0 end if
> > > =A0 =A0 =A0 =A0 end if
> > > =A0 =A0 =A0 =A0 set rs=3DNothing
> > > =A0 =A0 end if
>
> > > Yes I am new to all of this.
>
> > > Thank you for your help in advance.
> > > s
>
> > Is there any specific error? The part that is not working is quite
> > big :-)- Hide quoted text -
>
> - Show quoted text -

I'm not sure what you want to achieve with the code, you definitely
should check the final html you send to the browser. From what I can
see is there are two
tags, and one is not closed

..
..

Index | Impressum | Datenschutz | XODOX

") > > Response.Write("User:	") > > Response.Write(" > > type=""text"" /> ") > > Response.Write("
") > > Response.Write("Password:	") > > Response.Write(" > > type=""password"" />") > > Response.Write("
	") > > Response.Write("") > > Response.Write("

") >> > Response.Write("User:	") >> > Response.Write(" >> > 150px"" >> > type=""text"" /> ") >> > Response.Write("
") >> > Response.Write("Password:	") >> > Response.Write(" >> > type=""password"" />") >> > Response.Write("
	") >> > Response.Write("") >> > Response.Write("

") > > > =A0 =A0 =A0 =A0 Response.Write("User:	") > > > =A0 =A0 =A0 =A0 Response.Write(" =3D""width: 150px"" > > > type=3D""text"" /> ") > > > =A0 =A0 =A0 =A0 Response.Write("
") > > > =A0 =A0 =A0 =A0 Response.Write("Password:	") > > > =A0 =A0 =A0 =A0 Response.Write(" "width: 150px"" > > > type=3D""password"" />") > > > =A0 =A0 =A0 =A0 Response.Write("
	") > > > =A0 =A0 =A0 =A0 Response.Write(" e=3DLogin />") > > > =A0 =A0 =A0 =A0 Response.Write("