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'v e 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("c srname")
CSRExt = Request.Form("c srext")
CSREmail = Request.Form("c sremail")
CustName = Request.Form("c ustname")
CustAddress = Request.Form("c ustaddress")
CityStateZip = Request.Form("c itystatezip")
CustPhone = Request.Form("c ustphonenbr")
EcomOrder = Request.Form("e comnumber")
CustExpect = Request.Form("c ustexpect")
GCNumber = Request.Form("g cnumber")
PIN = Request.Form("p in")
Reason = Request.Form("r eason")
Solution = Request.Form("s olution")
CCNumber = Request.Form("c cnumber")
'************** *************** *************** *************** *************** ***
'* 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_Ca rd_Redemption.a sp'
name='gcredeem' onSubmit='valid ate()'>"
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'><in put 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'><in put 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'><in put type='text' name='csremail'
size='20'></td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<td width='153'>Cus tomer's Name :</td>"
Response.Write "<td width='503'><in put type='text' name='custname'
size='20'></td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<td width='153' valign='top'>Cu stomer Address :</td>"
Response.Write "<td width='503'><in put type='text' name='custaddre ss'
size='20'></td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<td width='153' valign='top'>Ci ty / State / Zip
:</td>"
Response.Write "<td width='503'>"
Response.Write "<input type='text' name='citystate zip' cols='43'
size='20'></textarea></td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<td width='153' valign='top'>Cu stomer Phone Number
:</td>"
Response.Write "<td width='503'>"
Response.Write "<input type='text' name='custphone nbr' cols='43'
size='20'></textarea></td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<td width='153' valign='top'>Ec ometry Order # :</td>"
Response.Write "<td width='503'>"
Response.Write "<input type='text' name='ecomnumbe r' cols='43'
size='20'></textarea></td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<td width='253' valign='top'>Cu stomer's Expected
Dollar Amount :</td>"
Response.Write "<td width='503'>$"
Response.Write "<input type='text' name='custexpec t' cols='43'
size='20'></textarea></td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<td width='153' valign='top'>Gi ft 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'>PI N # </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'>&n bsp;</td>"
Response.Write "<td width='503'>&nb sp;"
Response.Write "<tr>"
Response.Write "<td width='153' valign='top'>Re ason :</td>"
Response.Write "<td width='503'>"
Response.Write "<select size='1' name='reason'>"
Response.Write "<option selected>Choose From List</option>"
Response.Write "<option>Re deem 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'>So lution :</td>"
Response.Write "<td width='503'>"
%>
<script type='javascrip t'>
//RETURNS THE STYLE OBJECT
function getStyle(name){
if (document.getEl ementById){retu rn
document.getEle mentById(name). style;}
else if (document.all){ return document.all[name].style;}
else if (document.layer s){return document.layers[name];}
}
//HANDLES THE CHANGE IN SELECT BOX
function checkInput(valu e){
if (value=='credit '){show('ccnumb er', 'expdate')}
else {hide('cc', 'exp')}
// else return;
}
//CHANGES THE DISPLAY PROPERTY OF ELEMENT 'ID' TO BLOCK
function show(id){
var styleObj=getSty le(id);
styleObj.displa y='block';
}
//CHANGES THE DISPLAY PROPERTY OF ELEMENT 'ID' TO NONE
function hide(id){
var styleObj=getSty le(id);
styleObj.displa y='none';
}
</script>
<select name='solution' size='1' value=''
onchange='check Input(value)'>
<option value='none'>Ch oose From List</option>
<option value='replace' >Replacement GC</option>
<option value='check'>C heck Refund</option>
<option value='credit'> Credit to Credit Card</option>
</select>
<br>
<tr>
<td width='153' valign='top'><s pan id='cc' style="display: none;">
Credit Card Number</td>
<td width='503'><sp an 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'><s pan id='exp' style="display: none;">
Expiration Date</td>
<td width='503'><sp an id='expdate' style="display: none;">
<input type='text' name='expdate' id='exp' size="20"></span>
</span></span>
<%
Response.Write "<td width='503'>&nb sp;"
Response.Write "<tr>"
Response.Write "<td width='153' valign='top'>&n bsp;</td>"
Response.Write "<td width='503'>&nb sp;</td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<td width='153' valign='top'>&n bsp;</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'>Re turn to End User
Consumer Service</a></p>"
End Sub
'************** *************** *************** ******
'* EMAIL STATEMENT *
'************** *************** *************** ******
Sub Mail()
Set Mail = Server.CreateOb ject("Persits.M ailSender")
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.serverv ariables("REMOT E_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.CreateOb ject("ADODB.Con nection")
'open db in a DSN-less method
gcredemption.Op en "PROVIDER=MICRO SOFT.JET.OLEDB. 4.0;DATA SOURCE="&
Server.MapPath( "/jax/CS/eucs/Online_Forms/Secured_Archive s/eucs.mdb")
'correct syntax for INSERT statement "INSERT INTO
<tablename>(<fi eldname>) VALUES (<data>)"
stateSQL = "INSERT INTO gcredemption(cs r_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(CustNam e,"'","''") & "','"
&_
Replace(CustAdd ress,"'","''") & "','" &
Replace(CitySta teZip,"'","''") & "','" & Replace(CustPho ne,"'","''") &
"','" &_
Replace(EcomOrd er,"'","''") & "','" & Replace(CustExp ect,"'","''")
& "','" & Replace(GCNumbe r,"'","''") & "','" &_
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.Ex ecute(stateSQL)
'smack around the db connection until it lets go
gcredemption.Cl ose
'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'>Re turn to End User
Consumer Service</a></p>"
End Sub
'************** *************** *************** *************** *************** ***
Response.Write "<title>Gif t 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'v e 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("c srname")
CSRExt = Request.Form("c srext")
CSREmail = Request.Form("c sremail")
CustName = Request.Form("c ustname")
CustAddress = Request.Form("c ustaddress")
CityStateZip = Request.Form("c itystatezip")
CustPhone = Request.Form("c ustphonenbr")
EcomOrder = Request.Form("e comnumber")
CustExpect = Request.Form("c ustexpect")
GCNumber = Request.Form("g cnumber")
PIN = Request.Form("p in")
Reason = Request.Form("r eason")
Solution = Request.Form("s olution")
CCNumber = Request.Form("c cnumber")
'************** *************** *************** *************** *************** ***
'* 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_Ca rd_Redemption.a sp'
name='gcredeem' onSubmit='valid ate()'>"
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'><in put 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'><in put 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'><in put type='text' name='csremail'
size='20'></td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<td width='153'>Cus tomer's Name :</td>"
Response.Write "<td width='503'><in put type='text' name='custname'
size='20'></td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<td width='153' valign='top'>Cu stomer Address :</td>"
Response.Write "<td width='503'><in put type='text' name='custaddre ss'
size='20'></td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<td width='153' valign='top'>Ci ty / State / Zip
:</td>"
Response.Write "<td width='503'>"
Response.Write "<input type='text' name='citystate zip' cols='43'
size='20'></textarea></td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<td width='153' valign='top'>Cu stomer Phone Number
:</td>"
Response.Write "<td width='503'>"
Response.Write "<input type='text' name='custphone nbr' cols='43'
size='20'></textarea></td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<td width='153' valign='top'>Ec ometry Order # :</td>"
Response.Write "<td width='503'>"
Response.Write "<input type='text' name='ecomnumbe r' cols='43'
size='20'></textarea></td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<td width='253' valign='top'>Cu stomer's Expected
Dollar Amount :</td>"
Response.Write "<td width='503'>$"
Response.Write "<input type='text' name='custexpec t' cols='43'
size='20'></textarea></td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<td width='153' valign='top'>Gi ft 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'>PI N # </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'>&n bsp;</td>"
Response.Write "<td width='503'>&nb sp;"
Response.Write "<tr>"
Response.Write "<td width='153' valign='top'>Re ason :</td>"
Response.Write "<td width='503'>"
Response.Write "<select size='1' name='reason'>"
Response.Write "<option selected>Choose From List</option>"
Response.Write "<option>Re deem 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'>So lution :</td>"
Response.Write "<td width='503'>"
%>
<script type='javascrip t'>
//RETURNS THE STYLE OBJECT
function getStyle(name){
if (document.getEl ementById){retu rn
document.getEle mentById(name). style;}
else if (document.all){ return document.all[name].style;}
else if (document.layer s){return document.layers[name];}
}
//HANDLES THE CHANGE IN SELECT BOX
function checkInput(valu e){
if (value=='credit '){show('ccnumb er', 'expdate')}
else {hide('cc', 'exp')}
// else return;
}
//CHANGES THE DISPLAY PROPERTY OF ELEMENT 'ID' TO BLOCK
function show(id){
var styleObj=getSty le(id);
styleObj.displa y='block';
}
//CHANGES THE DISPLAY PROPERTY OF ELEMENT 'ID' TO NONE
function hide(id){
var styleObj=getSty le(id);
styleObj.displa y='none';
}
</script>
<select name='solution' size='1' value=''
onchange='check Input(value)'>
<option value='none'>Ch oose From List</option>
<option value='replace' >Replacement GC</option>
<option value='check'>C heck Refund</option>
<option value='credit'> Credit to Credit Card</option>
</select>
<br>
<tr>
<td width='153' valign='top'><s pan id='cc' style="display: none;">
Credit Card Number</td>
<td width='503'><sp an 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'><s pan id='exp' style="display: none;">
Expiration Date</td>
<td width='503'><sp an id='expdate' style="display: none;">
<input type='text' name='expdate' id='exp' size="20"></span>
</span></span>
<%
Response.Write "<td width='503'>&nb sp;"
Response.Write "<tr>"
Response.Write "<td width='153' valign='top'>&n bsp;</td>"
Response.Write "<td width='503'>&nb sp;</td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<td width='153' valign='top'>&n bsp;</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'>Re turn to End User
Consumer Service</a></p>"
End Sub
'************** *************** *************** ******
'* EMAIL STATEMENT *
'************** *************** *************** ******
Sub Mail()
Set Mail = Server.CreateOb ject("Persits.M ailSender")
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.serverv ariables("REMOT E_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.CreateOb ject("ADODB.Con nection")
'open db in a DSN-less method
gcredemption.Op en "PROVIDER=MICRO SOFT.JET.OLEDB. 4.0;DATA SOURCE="&
Server.MapPath( "/jax/CS/eucs/Online_Forms/Secured_Archive s/eucs.mdb")
'correct syntax for INSERT statement "INSERT INTO
<tablename>(<fi eldname>) VALUES (<data>)"
stateSQL = "INSERT INTO gcredemption(cs r_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(CustNam e,"'","''") & "','"
&_
Replace(CustAdd ress,"'","''") & "','" &
Replace(CitySta teZip,"'","''") & "','" & Replace(CustPho ne,"'","''") &
"','" &_
Replace(EcomOrd er,"'","''") & "','" & Replace(CustExp ect,"'","''")
& "','" & Replace(GCNumbe r,"'","''") & "','" &_
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.Ex ecute(stateSQL)
'smack around the db connection until it lets go
gcredemption.Cl ose
'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'>Re turn to End User
Consumer Service</a></p>"
End Sub
'************** *************** *************** *************** *************** ***
Response.Write "<title>Gif t 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*****
Comment