Help with radio buttons and uploading

Arctic · #1 (**permalink**) 08-15-03, 02:42 AM

Hi, im trying to make my upload page do this. I have 2 sections for files on my server. I want 2 radio buttons, when radio button 1 is clicked is will show the form for uploading files to the downloads section below it. When radio button 2 is clicked it will show the form for uploading (.zip) scripts to the scripts section below it. Any help on this would be great.

<%@ Language=VBScript %>
<%
option explicit
Response.Expires = -1
Server.ScriptTimeout = 600
%>
<HTML>
<HEAD><TITLE>FilesDomain.net - Upload</TITLE>
<link rel=stylesheet type="text/css" href="../style.css">
<script src="../noclick.js" type="text/javascript"></script>
</HEAD>
<BODY background="main_bg.jpg">
<%
Dim filesChecked, scriptsChecked, files, scripts
files=""
scripts=""

filesChecked = ""
scriptsChecked = ""

SELECT CASE Request.Form("type")
CASE "files"
filesChecked = "CHECKED"
CASE "scripts"
scriptsChecked = "CHECKED"
END SELECT
%>
<font size="2pt">
Pick what type of file you would like to upload:<BR>
<FORM Method=Post>
Files: <INPUT Type=Radio Name=type Value=files <%= filesChecked%>>
Scripts: <INPUT Type=Radio Name=type Value=scripts <%= scriptsChecked%>>
</font>
<INPUT Type=Submit class="button" value="Change">
</FORM>
<%= Request.Form("type")%>
</BODY>
</HTML>

Shane · #2 (**permalink**) 08-16-03, 05:43 PM

You can't dynamically load the #include tag.

You can, though, do something like this.

Code:

<html>
<head><title>Page Title</title>
</head>
<body>
Header stuff up here...

<%

If Request.Form("type") = "scripts" Then
' Put script form here. 
ElseIf Request.Form("type") = "files" Then
' Put files form here
Else
' Put selection buttons here

End If
%>

</body>
</html>

Arctic · #3 (**permalink**) 08-17-03, 02:54 AM

I set up with the code you gave me, this is what it looks like:

======================
<%@ Language=VBScript %>
<%
option explicit
Response.Expires = -1
Server.ScriptTimeout = 600
%>
<html>
<head><title>FilesDomain.net - Upload</title>
<link rel=stylesheet type="text/css" href="../style.css">
<script src="../noclick.js" type="text/javascript"></script>
</head>
<body background="main_bg.jpg" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table border="0" width="100%">
<tr><td align="center" valign="top">
<table border="0">
<tr><td align="center"></td></tr>
<tr><th><font size="6pt">UPLOAD</font></th></tr>
<tr><td align="center"><font size="2pt">Pick a file from your computer to upload to our server:</font></td></tr>
<tr><td><img src="spacer.gif" width="1px" height="1px"></td></tr>
<tr><td>
<%
If Request.Form("type") = "files" Then

<FORM METHOD="POST" ACTION="upload/files_upload.asp" ENCTYPE="multipart/form-data">
<INPUT TYPE="FILE" NAME="FILE1" SIZE="50" class="textfields">
<INPUT TYPE="FILE" NAME="FILE2" SIZE="50" class="textfields">
<INPUT TYPE="FILE" NAME="FILE3" SIZE="50" class="textfields">
<INPUT TYPE="FILE" NAME="FILE4" SIZE="50" class="textfields">

<INPUT TYPE="SUBMIT" VALUE="Upload" class="button">
</FORM>

ElseIf Request.Form("type") = "scripts" Then

<FORM METHOD="POST" ACTION="upload/scripts_upload.asp" ENCTYPE="multipart/form-data">
<INPUT TYPE="FILE" NAME="FILE1" SIZE="50" class="textfields">
<INPUT TYPE="FILE" NAME="FILE2" SIZE="50" class="textfields">
<INPUT TYPE="FILE" NAME="FILE3" SIZE="50" class="textfields">
<INPUT TYPE="FILE" NAME="FILE4" SIZE="50" class="textfields">

<INPUT TYPE="SUBMIT" VALUE="Upload" class="button">
</FORM>

Else

<FORM Method=Post>
Files: <INPUT Type=Radio Name=type Value=files>
Scripts: <INPUT Type=Radio Name=type Value=scripts>
<INPUT Type=Submit class="button" value="Change">
</FORM>

End If
%>
</td></tr>
<tr><td><img src="spacer.gif" width="1px" height="10px"></td></tr>
<tr><td align="center"></td></tr>
<tr><td align="center"></td></tr>
</table>
</td><td align="right" valign="top"><table border="0" style="border-collapse: collapse" width="160px" height="600px"><tr><th background="ad_title_bg.jpg">Advertisment</th></tr>

<td width="160px" background="120x600ad_bg.jpg" align="center">
<div style="border:thin dashed white">
<table border="0" style="border-collapse: collapse">
<tr><td>
 </td></tr>
</td></table></div>

</td></tr>
</table>
</body>
</html>
====================================

I get this error:
----------------------
Microsoft VBScript compilation error '800a0400'

Expected statement

/upload_changer.asp, line 24

<FORM METHOD="POST" ACTION="upload/files_upload.asp" ENCTYPE="multipart/form-data">

Shane · #4 (**permalink**) 08-17-03, 10:49 AM

You can't put regular HTML between the ASP brackets. You have to either close them off, or do a response.write.

For example:

Code:

<%
If condition = "yes" then
%>
<form method="post" action="whatever.asp">
<!-- more html here -->

<%
Else
%>
<!-- more html here
<% 
End If
%>