D
dmiller23462
Hi guys....I have absolutely NO IDEA what I'm doing with Javascript
but my end result is I need two text boxes to stay hidden until a
particular option is selected....I've cobbled together the JavaScript
in this code from a couple different sites but I'm not 100% sure what
each line is doing...This is the ASP code that I'm using for the
page....Take a look at the JavaScript code and please let me know what
each line is doing....I have been successful in hiding the two text
boxes in question ('ccnumber' and 'expdate') but can't display them
now....
Also, any good sites that you can direct me to so I can learn enough
to get by....I've tried a couple but they didn't explain too well...
*****START OF CODE*****
<!-- #INCLUDE VIRTUAL="/_borders/top_nav.asp" -->
<%
Mode = Request("mode")
CSRName = Request.Form("csrname")
CSRExt = Request.Form("csrext")
CSREmail = Request.Form("csremail")
CustName = Request.Form("custname")
CustAddress = Request.Form("custaddress")
CityStateZip = Request.Form("citystatezip")
CustPhone = Request.Form("custphonenbr")
EcomOrder = Request.Form("ecomnumber")
CustExpect = Request.Form("custexpect")
GCNumber = Request.Form("gcnumber")
PIN = Request.Form("pin")
Reason = Request.Form("reason")
Solution = Request.Form("solution")
CCNumber = Request.Form("ccnumber")
'*****************************************************************************
'* FORM FOR DATA INPUT
*
'*****************************************************************************
Sub Form()
Response.Write "<p><font size='1'>Gift Card Redemption form is to be
used when a customer reports a Gift Card as lost or "
Response.Write " stolen, an order for a new Gift Card was lost in
transit, or the customer requests the balance on a "
Response.Write "gift card to be refunded by check.</font></p>"
Response.Write "<form method='POST' action='Gift_Card_Redemption.asp'
name='gcredeem' onSubmit='validate()'>"
Response.Write " <div align='left'>"
Response.Write "<table border='0' cellpadding='0' width='666'>"
Response.Write "<tr>"
Response.Write "<td width='153'>CSR's Name :</td>"
Response.Write "<td width='503'><input type='text' name='csrname'
size='20'></td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<td width='153'>CSR's Ext. :</td>"
Response.Write "<td width='503'><input type='text' name='csrext'
size='20'></td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<td width='153'>CSR's Email :</td>"
Response.Write "<td width='503'><input type='text' name='csremail'
size='20'></td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<td width='153'>Customer's Name :</td>"
Response.Write "<td width='503'><input type='text' name='custname'
size='20'></td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<td width='153' valign='top'>Customer Address :</td>"
Response.Write "<td width='503'><input type='text' name='custaddress'
size='20'></td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<td width='153' valign='top'>City / State / Zip
:</td>"
Response.Write "<td width='503'>"
Response.Write "<input type='text' name='citystatezip' cols='43'
size='20'></textarea></td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<td width='153' valign='top'>Customer Phone Number
:</td>"
Response.Write "<td width='503'>"
Response.Write "<input type='text' name='custphonenbr' cols='43'
size='20'></textarea></td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<td width='153' valign='top'>Ecometry Order # :</td>"
Response.Write "<td width='503'>"
Response.Write "<input type='text' name='ecomnumber' cols='43'
size='20'></textarea></td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<td width='253' valign='top'>Customer's Expected
Dollar Amount :</td>"
Response.Write "<td width='503'>$"
Response.Write "<input type='text' name='custexpect' cols='43'
size='20'></textarea></td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<td width='153' valign='top'>Gift Card # :</td>"
Response.Write "<td width='503'>"
Response.Write "<input type='text' name='gcnumber' cols='43'
size='20'></textarea></td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<td width='153' valign='top'>PIN # </td>"
Response.Write "<td width='503'>"
Response.Write "<input type='text' name='pin' cols='43'
size='20'></textarea></td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<td width='153' valign='top'> </td>"
Response.Write "<td width='503'> "
Response.Write "<tr>"
Response.Write "<td width='153' valign='top'>Reason :</td>"
Response.Write "<td width='503'>"
Response.Write "<select size='1' name='reason'>"
Response.Write "<option selected>Choose From List</option>"
Response.Write "<option>Redeem GC Balance For Check Refund</option>"
Response.Write "<option>GC Was Lost Or Stolen</option>"
Response.Write "<option>GC Was Lost In Transit</option>"
Response.Write "</select>"
Response.Write "<tr>"
Response.Write "<td width='153' valign='top'>Solution :</td>"
Response.Write "<td width='503'>"
%>
<script type='javascript'>
//RETURNS THE STYLE OBJECT
function getStyle(name){
if (document.getElementById){return
document.getElementById(name).style;}
else if (document.all){return document.all[name].style;}
else if (document.layers){return document.layers[name];}
}
//HANDLES THE CHANGE IN SELECT BOX
function checkInput(value){
if (value=='credit'){show('ccnumber', 'expdate')}
else {hide('cc', 'exp')}
// else return;
}
//CHANGES THE DISPLAY PROPERTY OF ELEMENT 'ID' TO BLOCK
function show(id){
var styleObj=getStyle(id);
styleObj.display='block';
}
//CHANGES THE DISPLAY PROPERTY OF ELEMENT 'ID' TO NONE
function hide(id){
var styleObj=getStyle(id);
styleObj.display='none';
}
</script>
<select name='solution' size='1' value=''
onchange='checkInput(value)'>
<option value='none'>Choose From List</option>
<option value='replace'>Replacement GC</option>
<option value='check'>Check Refund</option>
<option value='credit'>Credit to Credit Card</option>
</select>
<br>
<tr>
<td width='153' valign='top'><span id='cc' style="display: none;">
Credit Card Number</td>
<td width='503'><span id='ccnumber' style="display: none;">
<textarea cols='25' rows='1'>Fluffy bunnies suck</textarea>
<!--<input type='text' name='ccnumber' id='cc'>--></span>
<br>
<tr>
<td width='153' valign='top'><span id='exp' style="display: none;">
Expiration Date</td>
<td width='503'><span id='expdate' style="display: none;">
<input type='text' name='expdate' id='exp' size="20"></span>
</span></span>
<%
Response.Write "<td width='503'> "
Response.Write "<tr>"
Response.Write "<td width='153' valign='top'> </td>"
Response.Write "<td width='503'> </td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<td width='153' valign='top'> </td>"
Response.Write "<td width='503'>"
Response.Write "<input type='submit' value='Send Message'
name='Send'></td>"
Response.Write "</tr>"
Response.Write "</table>"
Response.Write "</div>"
Response.Write "<input type='hidden' name='mode' value='Send'>"
Response.Write "</form>"
Response.Write"<p><a href='../default.asp'>Return to End User
Consumer Service</a></p>"
End Sub
'**************************************************
'* EMAIL STATEMENT *
'**************************************************
Sub Mail()
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "gwfs1" ' Specify a valid SMTP server
Mail.From = CSREmail ' Specify sender's address
Mail.FromName = CSREmail ' Specify sender's name
Mail.IsHTML = True
Mail.Subject = Reason
Dim mail_body
mail_body = "CSR's Name : " & CSRName & "<br>" &_
"CSR's Ext : " & CSRExt & "<br>" &_
"Customer Name : " & CustName & "<br>" &_
"Customer's Phone Number : " & CustPhone & "<br>" &_
"Customer's Address : " & CustAddress & "<br>" &_
"City / State / Zip : " & CityStateZip & "<br>" &_
"Ecometry Order # : " & EcomOrder & "<br>" &_
"Customer's Expected Dollar Amount : " & CustExpect & "<br>" &_
"Gift Card # : " & GCNumber & "<br>" &_
"PIN : " & PIN & "<br>" &_
"Reason : " & Reason & "<br>" &_
"Solution : " & Solution & "<br>" &_
"Credit Card Number : " & CCNumber & "<br>"
mail.body = mail_body & request.servervariables("REMOTE_ADDR")
On Error Resume Next
Mail.Send
If Err <> 0 Then
Response.Write "Error encountered: " & Err.Description
End If
End Sub
'*****************************************************************************
'*****************************************************************************
'* DATABASE APPENDING
*
'*****************************************************************************
Sub Database()
'create db connection
Set gcredemption = Server.CreateObject("ADODB.Connection")
'open db in a DSN-less method
gcredemption.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE="&
Server.MapPath("/jax/CS/eucs/Online_Forms/Secured_Archives/eucs.mdb")
'correct syntax for INSERT statement "INSERT INTO
<tablename>(<fieldname>) VALUES (<data>)"
stateSQL = "INSERT INTO gcredemption(csr_name, csr_ext, cust_name,
address, city_state_zip, phone_number, ecom_order, expected,
giftcard_number, pin, reason, solution, cc_number) " &_
"VALUES ('" & Replace(CSRName,"'","''") & "','" &
Replace(CSRExt,"'","''") & "','" & Replace(CustName,"'","''") & "','"
&_
Replace(CustAddress,"'","''") & "','" &
Replace(CityStateZip,"'","''") & "','" & Replace(CustPhone,"'","''") &
"','" &_
Replace(EcomOrder,"'","''") & "','" & Replace(CustExpect,"'","''")
& "','" & Replace(GCNumber,"'","''") & "','" &_
Replace(PIN,"'","''") & "','" & Reason & "','" & Solution & "','" &
CCNumber & "')"
'display results of statement on screen for testing purposes
Response.Write(stateSQL)
'remind the SQL statement who it works for
gcredemption.Execute(stateSQL)
'smack around the db connection until it lets go
gcredemption.Close
'kill the connection with extreme prejudice
set gcredemption = nothing
End Sub
'*****************************************************************************
'*****************************************************************************
'* CONFIRMATION PAGE AFTER ENTERING DATA
*
'*****************************************************************************
Sub Confirm()
Response.Write "<h2><img border='0'
src='../../../images/success.jpg'></h2>"
Response.Write "<p>The following message has been successfully
submitted!</p>"
Response.Write "CSR's Name : <font color='#0000FF'>" & CSRName &
"</font><br>"
Response.Write "CSR's Ext. : <font color='#0000FF'>" & CSRExt &
"</font><br>"
Response.Write "Customer's Name : <font color='#0000FF'>" & CustName
& "</font><br>"
Response.Write "Customer Phone # : <font color='#0000FF'>" &
CustPhone & "</font><br>"
Response.Write "Customer's Address : <font color='#0000FF'>" &
CustAddress & "</font><br>"
Response.Write "City / State / Zip : <font color='#0000FF'>" &
CityStateZip & "</font><br>"
Response.Write "Ecometry Order # : <font color='#0000FF'>" &
EcomOrder & "</font><br>"
Response.Write "Customer's Expected Dollar Amount : <font
color='#0000FF'>" & CustExpect & "</font><br>"
Response.Write "Gift Card # : <font color='#0000FF'>" & GCNumber &
"</font><br>"
Response.Write "PIN : <font color='#0000FF'>" & PIN & "</font><br>"
Response.Write "Reason : <font color='#0000FF'>" & Reason &
"</font><br>"
Response.Write "Solution : <font color='#0000FF'>" & Solution &
"</font><br>"
Response.Write "Credit Card # : <font color='#0000FF'>" & CCNumber &
"<p> </p>"
Response.Write"<p><a href='../default.asp'>Return to End User
Consumer Service</a></p>"
End Sub
'*****************************************************************************
Response.Write "<title>Gift Card Redemption</title>"
If Mode <> "Send" Then
Call Form
End If
If Mode = "Send" Then
' Call Validation
Call Database
Call Mail
End If
'If Validated_Form = True Then
' Call Mail
' Call FileAppend
' Call Database
' Call Confirm
'End If
%><!-- #INCLUDE VIRTUAL="/_borders/bottom_nav.asp" -->
*****END OF CODE*****
but my end result is I need two text boxes to stay hidden until a
particular option is selected....I've cobbled together the JavaScript
in this code from a couple different sites but I'm not 100% sure what
each line is doing...This is the ASP code that I'm using for the
page....Take a look at the JavaScript code and please let me know what
each line is doing....I have been successful in hiding the two text
boxes in question ('ccnumber' and 'expdate') but can't display them
now....
Also, any good sites that you can direct me to so I can learn enough
to get by....I've tried a couple but they didn't explain too well...
*****START OF CODE*****
<!-- #INCLUDE VIRTUAL="/_borders/top_nav.asp" -->
<%
Mode = Request("mode")
CSRName = Request.Form("csrname")
CSRExt = Request.Form("csrext")
CSREmail = Request.Form("csremail")
CustName = Request.Form("custname")
CustAddress = Request.Form("custaddress")
CityStateZip = Request.Form("citystatezip")
CustPhone = Request.Form("custphonenbr")
EcomOrder = Request.Form("ecomnumber")
CustExpect = Request.Form("custexpect")
GCNumber = Request.Form("gcnumber")
PIN = Request.Form("pin")
Reason = Request.Form("reason")
Solution = Request.Form("solution")
CCNumber = Request.Form("ccnumber")
'*****************************************************************************
'* FORM FOR DATA INPUT
*
'*****************************************************************************
Sub Form()
Response.Write "<p><font size='1'>Gift Card Redemption form is to be
used when a customer reports a Gift Card as lost or "
Response.Write " stolen, an order for a new Gift Card was lost in
transit, or the customer requests the balance on a "
Response.Write "gift card to be refunded by check.</font></p>"
Response.Write "<form method='POST' action='Gift_Card_Redemption.asp'
name='gcredeem' onSubmit='validate()'>"
Response.Write " <div align='left'>"
Response.Write "<table border='0' cellpadding='0' width='666'>"
Response.Write "<tr>"
Response.Write "<td width='153'>CSR's Name :</td>"
Response.Write "<td width='503'><input type='text' name='csrname'
size='20'></td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<td width='153'>CSR's Ext. :</td>"
Response.Write "<td width='503'><input type='text' name='csrext'
size='20'></td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<td width='153'>CSR's Email :</td>"
Response.Write "<td width='503'><input type='text' name='csremail'
size='20'></td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<td width='153'>Customer's Name :</td>"
Response.Write "<td width='503'><input type='text' name='custname'
size='20'></td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<td width='153' valign='top'>Customer Address :</td>"
Response.Write "<td width='503'><input type='text' name='custaddress'
size='20'></td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<td width='153' valign='top'>City / State / Zip
:</td>"
Response.Write "<td width='503'>"
Response.Write "<input type='text' name='citystatezip' cols='43'
size='20'></textarea></td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<td width='153' valign='top'>Customer Phone Number
:</td>"
Response.Write "<td width='503'>"
Response.Write "<input type='text' name='custphonenbr' cols='43'
size='20'></textarea></td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<td width='153' valign='top'>Ecometry Order # :</td>"
Response.Write "<td width='503'>"
Response.Write "<input type='text' name='ecomnumber' cols='43'
size='20'></textarea></td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<td width='253' valign='top'>Customer's Expected
Dollar Amount :</td>"
Response.Write "<td width='503'>$"
Response.Write "<input type='text' name='custexpect' cols='43'
size='20'></textarea></td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<td width='153' valign='top'>Gift Card # :</td>"
Response.Write "<td width='503'>"
Response.Write "<input type='text' name='gcnumber' cols='43'
size='20'></textarea></td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<td width='153' valign='top'>PIN # </td>"
Response.Write "<td width='503'>"
Response.Write "<input type='text' name='pin' cols='43'
size='20'></textarea></td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<td width='153' valign='top'> </td>"
Response.Write "<td width='503'> "
Response.Write "<tr>"
Response.Write "<td width='153' valign='top'>Reason :</td>"
Response.Write "<td width='503'>"
Response.Write "<select size='1' name='reason'>"
Response.Write "<option selected>Choose From List</option>"
Response.Write "<option>Redeem GC Balance For Check Refund</option>"
Response.Write "<option>GC Was Lost Or Stolen</option>"
Response.Write "<option>GC Was Lost In Transit</option>"
Response.Write "</select>"
Response.Write "<tr>"
Response.Write "<td width='153' valign='top'>Solution :</td>"
Response.Write "<td width='503'>"
%>
<script type='javascript'>
//RETURNS THE STYLE OBJECT
function getStyle(name){
if (document.getElementById){return
document.getElementById(name).style;}
else if (document.all){return document.all[name].style;}
else if (document.layers){return document.layers[name];}
}
//HANDLES THE CHANGE IN SELECT BOX
function checkInput(value){
if (value=='credit'){show('ccnumber', 'expdate')}
else {hide('cc', 'exp')}
// else return;
}
//CHANGES THE DISPLAY PROPERTY OF ELEMENT 'ID' TO BLOCK
function show(id){
var styleObj=getStyle(id);
styleObj.display='block';
}
//CHANGES THE DISPLAY PROPERTY OF ELEMENT 'ID' TO NONE
function hide(id){
var styleObj=getStyle(id);
styleObj.display='none';
}
</script>
<select name='solution' size='1' value=''
onchange='checkInput(value)'>
<option value='none'>Choose From List</option>
<option value='replace'>Replacement GC</option>
<option value='check'>Check Refund</option>
<option value='credit'>Credit to Credit Card</option>
</select>
<br>
<tr>
<td width='153' valign='top'><span id='cc' style="display: none;">
Credit Card Number</td>
<td width='503'><span id='ccnumber' style="display: none;">
<textarea cols='25' rows='1'>Fluffy bunnies suck</textarea>
<!--<input type='text' name='ccnumber' id='cc'>--></span>
<br>
<tr>
<td width='153' valign='top'><span id='exp' style="display: none;">
Expiration Date</td>
<td width='503'><span id='expdate' style="display: none;">
<input type='text' name='expdate' id='exp' size="20"></span>
</span></span>
<%
Response.Write "<td width='503'> "
Response.Write "<tr>"
Response.Write "<td width='153' valign='top'> </td>"
Response.Write "<td width='503'> </td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<td width='153' valign='top'> </td>"
Response.Write "<td width='503'>"
Response.Write "<input type='submit' value='Send Message'
name='Send'></td>"
Response.Write "</tr>"
Response.Write "</table>"
Response.Write "</div>"
Response.Write "<input type='hidden' name='mode' value='Send'>"
Response.Write "</form>"
Response.Write"<p><a href='../default.asp'>Return to End User
Consumer Service</a></p>"
End Sub
'**************************************************
'* EMAIL STATEMENT *
'**************************************************
Sub Mail()
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "gwfs1" ' Specify a valid SMTP server
Mail.From = CSREmail ' Specify sender's address
Mail.FromName = CSREmail ' Specify sender's name
Mail.IsHTML = True
Mail.Subject = Reason
Dim mail_body
mail_body = "CSR's Name : " & CSRName & "<br>" &_
"CSR's Ext : " & CSRExt & "<br>" &_
"Customer Name : " & CustName & "<br>" &_
"Customer's Phone Number : " & CustPhone & "<br>" &_
"Customer's Address : " & CustAddress & "<br>" &_
"City / State / Zip : " & CityStateZip & "<br>" &_
"Ecometry Order # : " & EcomOrder & "<br>" &_
"Customer's Expected Dollar Amount : " & CustExpect & "<br>" &_
"Gift Card # : " & GCNumber & "<br>" &_
"PIN : " & PIN & "<br>" &_
"Reason : " & Reason & "<br>" &_
"Solution : " & Solution & "<br>" &_
"Credit Card Number : " & CCNumber & "<br>"
mail.body = mail_body & request.servervariables("REMOTE_ADDR")
On Error Resume Next
Mail.Send
If Err <> 0 Then
Response.Write "Error encountered: " & Err.Description
End If
End Sub
'*****************************************************************************
'*****************************************************************************
'* DATABASE APPENDING
*
'*****************************************************************************
Sub Database()
'create db connection
Set gcredemption = Server.CreateObject("ADODB.Connection")
'open db in a DSN-less method
gcredemption.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE="&
Server.MapPath("/jax/CS/eucs/Online_Forms/Secured_Archives/eucs.mdb")
'correct syntax for INSERT statement "INSERT INTO
<tablename>(<fieldname>) VALUES (<data>)"
stateSQL = "INSERT INTO gcredemption(csr_name, csr_ext, cust_name,
address, city_state_zip, phone_number, ecom_order, expected,
giftcard_number, pin, reason, solution, cc_number) " &_
"VALUES ('" & Replace(CSRName,"'","''") & "','" &
Replace(CSRExt,"'","''") & "','" & Replace(CustName,"'","''") & "','"
&_
Replace(CustAddress,"'","''") & "','" &
Replace(CityStateZip,"'","''") & "','" & Replace(CustPhone,"'","''") &
"','" &_
Replace(EcomOrder,"'","''") & "','" & Replace(CustExpect,"'","''")
& "','" & Replace(GCNumber,"'","''") & "','" &_
Replace(PIN,"'","''") & "','" & Reason & "','" & Solution & "','" &
CCNumber & "')"
'display results of statement on screen for testing purposes
Response.Write(stateSQL)
'remind the SQL statement who it works for
gcredemption.Execute(stateSQL)
'smack around the db connection until it lets go
gcredemption.Close
'kill the connection with extreme prejudice
set gcredemption = nothing
End Sub
'*****************************************************************************
'*****************************************************************************
'* CONFIRMATION PAGE AFTER ENTERING DATA
*
'*****************************************************************************
Sub Confirm()
Response.Write "<h2><img border='0'
src='../../../images/success.jpg'></h2>"
Response.Write "<p>The following message has been successfully
submitted!</p>"
Response.Write "CSR's Name : <font color='#0000FF'>" & CSRName &
"</font><br>"
Response.Write "CSR's Ext. : <font color='#0000FF'>" & CSRExt &
"</font><br>"
Response.Write "Customer's Name : <font color='#0000FF'>" & CustName
& "</font><br>"
Response.Write "Customer Phone # : <font color='#0000FF'>" &
CustPhone & "</font><br>"
Response.Write "Customer's Address : <font color='#0000FF'>" &
CustAddress & "</font><br>"
Response.Write "City / State / Zip : <font color='#0000FF'>" &
CityStateZip & "</font><br>"
Response.Write "Ecometry Order # : <font color='#0000FF'>" &
EcomOrder & "</font><br>"
Response.Write "Customer's Expected Dollar Amount : <font
color='#0000FF'>" & CustExpect & "</font><br>"
Response.Write "Gift Card # : <font color='#0000FF'>" & GCNumber &
"</font><br>"
Response.Write "PIN : <font color='#0000FF'>" & PIN & "</font><br>"
Response.Write "Reason : <font color='#0000FF'>" & Reason &
"</font><br>"
Response.Write "Solution : <font color='#0000FF'>" & Solution &
"</font><br>"
Response.Write "Credit Card # : <font color='#0000FF'>" & CCNumber &
"<p> </p>"
Response.Write"<p><a href='../default.asp'>Return to End User
Consumer Service</a></p>"
End Sub
'*****************************************************************************
Response.Write "<title>Gift Card Redemption</title>"
If Mode <> "Send" Then
Call Form
End If
If Mode = "Send" Then
' Call Validation
Call Database
Call Mail
End If
'If Validated_Form = True Then
' Call Mail
' Call FileAppend
' Call Database
' Call Confirm
'End If
%><!-- #INCLUDE VIRTUAL="/_borders/bottom_nav.asp" -->
*****END OF CODE*****