Sorry I didn't test it ...
Just replace the current sub by:
sub ModPicture(ImageType)
if ImageType <> "none" then
result =
window.showModalDialog("MD_ModPicture.cfm?ImageType=" &
ImageType,,"dialogWidth:20;dialogHeight:20")
if result = "" then
exit sub
else
document.all.New_Book_Image.value = result
end if
else
exit sub
end if
end sub
-----Original Message-----
From: Candace Cottrell [SMTP:[EMAIL PROTECTED]]
Sent: 12 September 2002 01:52
To: CF-Talk
Subject: RE: Stuck Building Admin Area (modal Windows)
Gerald, at your suggestion, I tried to implement the modal window.
Thanks for all your help.
I'm not sure why, but I keep getting a VB Script error on the first
page
where the End Sub is. I have to admit it's been years since I've
worked
with VBScript ;)
Any help would be greatly appreciated.
form page:
<script language="VBScript">
sub ModPicture(ImageType)
if ImageType = "none" then exit sub
result =
window.showModalDialog("MD_ModPicture.cfm?ImageType=" &
ImageType,,"dialogWidth:20;dialogHeight:20")
if result = "" then
exit sub
else
document.all.New_Book_Image.value = result
end if
end sub
</script>
<select name="ImageType"
onChange="ModPicture(this.options[this.selectedIndex].value)">
<cfoutput query="getNewBook">
<cfif New_Book_Image Contains "http://images.amazon.";>;
<option value="amazon" selected>Amazon</option>
<option value="None"> No Image</option>
<option value="Upload">Upload</option>
<cfelseif New_Book_Image IS "None">
<option value="amazon" selected>Amazon</option>
<option value="None" selected> No Image</option>
<option value="Upload">Upload</option>
<cfelse>
<option value="amazon" selected>Amazon</option>
<option value="None"> No Image</option>
<option value="Upload"
selected>Upload</option>
</cfif>
</cfoutput>
</select>
modal:
<html>
<title>Modal</title>
<script language="VBScript">
sub Save
window.returnValue =
window.document.all.New_Book_Image.value
window.close()
end sub
sub Cancel
window.returnValue = ""
window.close()
end sub
</script>
<link href="../apooo.css" rel="stylesheet" type="text/css">
<table>
<cfswitch expression="#url.ImageType#">
<cfcase value="amazon">
<tr>
<td><span class="tealHeader">Amazon
link</span><br>
</td>
<td><span class="copyTeal">Type
the Image URL:</span>
<input type="text"
name="New_Book_Image"></td>
</tr>
</cfcase>
<cfcase value="Upload">
<tr>
<td>Attachment</td>
<td><input type="file" name="Image"></td>
</tr>
</cfcase>
</cfswitch>
<tr>
<td colspan="2" align="center">
<input type="button" value="Save" onClick="Save">
<input type="button" value="Cancel"
onClick="Cancel">
</td>
</tr>
</table>
</html>
Candace K. Cottrell, Web Developer
The Children's Medical Center
One Children's Plaza
Dayton, OH 45404
937-641-4293
http://www.childrensdayton.org
[EMAIL PROTECTED]
______________________________________________________________________
Structure your ColdFusion code with Fusebox. Get the official book at
http://www.fusionauthority.com/bkinfo.cfm
FAQ: http://www.thenetprofits.co.uk/coldfusion/faq
Archives: http://www.mail-archive.com/[email protected]/
Unsubscribe: http://www.houseoffusion.com/index.cfm?sidebar=lists
