[Last Call] Learn how to a build a cloud-first strategyRegister Now

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 282
  • Last Modified:

ASP Component - Msgbox

Hello. I have created a .dll file including the following function:

Public Function Age(FieldToTest)
    If Not IsNumeric(FieldToTest) Then
        MsgBox "Please enter a valid age", vbOKOnly, "Age verification"
        Age = False
    ElseIf CInt(FieldToTest) < 0 Or CInt(FieldToTest) > 130 Then
       MsgBox "Please enter a valid age", vbOKOnly, "Age verification"
       Age = False
    Else
        Age = True
    End If
End Function


It works fine combined with my .asp file and the .asp error messages appear but the Msgbox doesn't work. Below is the .asp file:

<%
Option Explicit
Dim TheMessage
Dim MyFV

If IsEmpty(Request.Form("Submit")) Then
      TheMessage = "Please complete all the fields on the page"
else
      set MyFV = Server.CreateObject("FieldValidation.FVProcs")
      If not MyFV.EmailAddress(Request.Form("EmailAddress")) Then
            TheMessage = "Email Address is not valid!"
      End If
      If not MyFV.Age(Request.Form("Age")) Then
            TheMessage = TheMessage & " Age is not valid!"
      End If
      If not MyFV.BirthDate(Request.Form("BirthDate")) Then
            TheMessage = TheMessage & " Birth Date is not valid!"
      End If
      If not MyFV.Phone(Request.Form("Phone")) Then
            TheMessage = TheMessage & " Phone is not valid!"
      End If
      If not MyFV.ZipCode(Request.Form("ZipCode")) Then
            TheMessage = TheMessage & " Zip Code is not valid!"
      End If
      If len(TheMessage) = 0 Then
            TheMessage = "Your Data was accepted"
      End If
End If
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2 FINAL//EN">
<HTML>
<HEAD>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=ISO-8859-1">
<META NAME="Generator" CONTENT="NetObjects Fusion 4.0.1 for Windows">
<TITLE>Field Validation</TITLE>
</HEAD>
<BODY BGCOLOR="#FFFFFF" LINK="#0000FF" VLINK="#800080" TEXT="#000000" TOPMARGIN=0 LEFTMARGIN=0 MARGINWIDTH=0 MARGINHEIGHT=0>
    <FORM NAME="LAYOUTFORM" ACTION="./index.asp" METHOD=POST>
        <TABLE BORDER=0 CELLSPACING=0 CELLPADDING=0 WIDTH=615>
            <TR VALIGN=TOP ALIGN=LEFT>
                <TD WIDTH=15 HEIGHT=15><IMG SRC="./assets/images/autogen/clearpixel.gif" WIDTH=15 HEIGHT=1 BORDER=0></TD>
                <TD></TD>
                <TD WIDTH=74><IMG SRC="./assets/images/autogen/clearpixel.gif" WIDTH=74 HEIGHT=1 BORDER=0></TD>
                <TD WIDTH=456><IMG SRC="./assets/images/autogen/clearpixel.gif" WIDTH=456 HEIGHT=1 BORDER=0></TD>
            </TR>
            <TR VALIGN=TOP ALIGN=LEFT>
                <TD HEIGHT=24></TD>
                <TD WIDTH=600 COLSPAN=3><IMG ID="Banner2" HEIGHT=24 WIDTH=600 SRC="./assets/images/autogen/FV_NTabBanner.gif" BORDER=0 ALT="Field Validation"></TD>
            </TR>
            <TR VALIGN=TOP ALIGN=LEFT>
                <TD COLSPAN=4 HEIGHT=4></TD>
            </TR>
            <TR VALIGN=TOP ALIGN=LEFT>
                <TD></TD>
                <TD WIDTH=600 COLSPAN=3><P><I><FONT SIZE="+1" FACE="Arial,Helvetica,Univers,Zurich BT"><% Response.Write TheMessage %></FONT></I></TD>
            </TR>
            <TR VALIGN=TOP ALIGN=LEFT>
                <TD COLSPAN=4 HEIGHT=10></TD>
            </TR>
            <TR VALIGN=TOP ALIGN=LEFT>
                <TD></TD>
                <TD WIDTH=600 COLSPAN=3  BGCOLOR="#CCFFFF">
                    <TABLE BORDER=0 CELLSPACING=0 CELLPADDING=5 WIDTH=600>
                        <TR>
                            <TD><P><B><FONT SIZE="+1" FACE="Arial,Helvetica,Univers,Zurich BT">Email Address</FONT></B></TD>
                        </TR>
                    </TABLE>
                </TD>
            </TR>
            <TR VALIGN=TOP ALIGN=LEFT>
                <TD HEIGHT=22></TD>
                <TD WIDTH=144 COLSPAN=2><INPUT ID="FormsEditField1" TYPE=TEXT NAME="EmailAddress" VALUE="<% Response.Write Request.Form("EmailAddress") %>" SIZE=18 MAXLENGTH=18></TD>
                <TD></TD>
            </TR>
            <TR VALIGN=TOP ALIGN=LEFT>
                <TD COLSPAN=4 HEIGHT=6></TD>
            </TR>
            <TR VALIGN=TOP ALIGN=LEFT>
                <TD></TD>
                <TD WIDTH=600 COLSPAN=3  BGCOLOR="#CCFFFF">
                    <TABLE BORDER=0 CELLSPACING=0 CELLPADDING=5 WIDTH=600>
                        <TR>
                            <TD><P><B><FONT SIZE="+1" FACE="Arial,Helvetica,Univers,Zurich BT">Age</FONT></B></TD>
                        </TR>
                    </TABLE>
                </TD>
            </TR>
            <TR VALIGN=TOP ALIGN=LEFT>
                <TD HEIGHT=22></TD>
                <TD WIDTH=144 COLSPAN=2><INPUT ID="FormsEditField2" TYPE=TEXT NAME="Age" VALUE="<% Response.Write Request.Form("Age") %>" SIZE=18 MAXLENGTH=18></TD>
                <TD></TD>
            </TR>
            <TR VALIGN=TOP ALIGN=LEFT>
                <TD COLSPAN=4 HEIGHT=7></TD>
            </TR>
            <TR VALIGN=TOP ALIGN=LEFT>
                <TD></TD>
                <TD WIDTH=600 COLSPAN=3  BGCOLOR="#CCFFFF">
                    <TABLE BORDER=0 CELLSPACING=0 CELLPADDING=5 WIDTH=600>
                        <TR>
                            <TD><P><B><FONT SIZE="+1" FACE="Arial,Helvetica,Univers,Zurich BT">Birth Date</FONT></B></TD>
                        </TR>
                    </TABLE>
                </TD>
            </TR>
            <TR VALIGN=TOP ALIGN=LEFT>
                <TD HEIGHT=22></TD>
                <TD WIDTH=144 COLSPAN=2><INPUT ID="FormsEditField3" TYPE=TEXT NAME="BirthDate" VALUE="<% Response.Write Request.Form("BirthDate") %>" SIZE=18 MAXLENGTH=18></TD>
                <TD></TD>
            </TR>
            <TR VALIGN=TOP ALIGN=LEFT>
                <TD COLSPAN=4 HEIGHT=8></TD>
            </TR>
            <TR VALIGN=TOP ALIGN=LEFT>
                <TD></TD>
                <TD WIDTH=600 COLSPAN=3  BGCOLOR="#CCFFFF">
                    <TABLE BORDER=0 CELLSPACING=0 CELLPADDING=5 WIDTH=600>
                        <TR>
                            <TD><P><B><FONT SIZE="+1" FACE="Arial,Helvetica,Univers,Zurich BT">Phone</FONT></B></TD>
                        </TR>
                    </TABLE>
                </TD>
            </TR>
            <TR VALIGN=TOP ALIGN=LEFT>
                <TD HEIGHT=22></TD>
                <TD WIDTH=144 COLSPAN=2><INPUT ID="FormsEditField4" TYPE=TEXT NAME="Phone" VALUE="<% Response.Write Request.Form("Phone") %>" SIZE=18 MAXLENGTH=18></TD>
                <TD></TD>
            </TR>
            <TR VALIGN=TOP ALIGN=LEFT>
                <TD COLSPAN=4 HEIGHT=7></TD>
            </TR>
            <TR VALIGN=TOP ALIGN=LEFT>
                <TD></TD>
                <TD WIDTH=600 COLSPAN=3  BGCOLOR="#CCFFFF">
                    <TABLE BORDER=0 CELLSPACING=0 CELLPADDING=5 WIDTH=600>
                        <TR>
                            <TD><P><B><FONT SIZE="+1" FACE="Arial,Helvetica,Univers,Zurich BT">Zip Code</FONT></B></TD>
                        </TR>
                    </TABLE>
                </TD>
            </TR>
            <TR VALIGN=TOP ALIGN=LEFT>
                <TD HEIGHT=22></TD>
                <TD WIDTH=144 COLSPAN=2><INPUT ID="FormsEditField5" TYPE=TEXT NAME="ZipCode" VALUE="<% Response.Write Request.Form("ZipCode") %>" SIZE=18 MAXLENGTH=18></TD>
                <TD></TD>
            </TR>
            <TR VALIGN=TOP ALIGN=LEFT>
                <TD COLSPAN=4 HEIGHT=7></TD>
            </TR>
            <TR VALIGN=TOP ALIGN=LEFT>
                <TD HEIGHT=24></TD>
                <TD WIDTH=70><INPUT TYPE=SUBMIT NAME="Submit" VALUE="Submit" ID="FormsButton1"></TD>
                <TD COLSPAN=2></TD>
            </TR>
        </TABLE>
    </FORM>
</BODY>
</HTML>
 
0
AlexKalkakos
Asked:
AlexKalkakos
  • 4
  • 2
  • 2
  • +1
1 Solution
 
madsunCommented:
Hi Alex,

Since you are using dll, i.e. activex dll, the property of this kind of projects in Visual basic is unattended execution. That means, no user interaction. So, msgbox will not work in this case.

Hope this answers you.

Madsun
0
 
DirkVeCommented:
The answer of madsun is right. You can solve this in many ways:

-add an extra parameter (String) that you fill in when an error occurs.
-raise an error and intercept this in asp with the Err object.

0
 
AlexKalkakosAuthor Commented:
I forgot to mention. The error message I receive is :
"Access denied Msgbox"
DirkVe can you be more specific to what excactly I have to do? Step by step instructions would be very helpful.
0
What does it mean to be "Always On"?

Is your cloud always on? With an Always On cloud you won't have to worry about downtime for maintenance or software application code updates, ensuring that your bottom line isn't affected.

 
DirkVeCommented:
Well, you cannot use MsgBox in components/dll's.
In asp you can do it if use a little trick: put the MSGBOX in a script-block.

The solution you're trying to use is not the good approach:
You do a simple (fixed) verification/validation with a SERVER-side component. This mean that you create extra traffic to the server and then back to the client. This is only necessary if the validation is data-based (like an authentication with data from the database). So, in your case it's better to put the validation of the age in your asp-code.

I give you a simple example:
I took your Age function, put that code in asp, and added a script-block around the MsgBox. I guess you can do the rest with the help that I provided?

Here's your code:

Public Function Age(FieldToTest)
   If Not IsNumeric(FieldToTest) Then
   %>
          <SCRIPT language="VBScript">
          MsgBox "Please enter a valid age", vbOKOnly, "Age verification"
          </SCRIPT>
          <%
       
       Age = False
   ElseIf CInt(FieldToTest) < 0 Or CInt(FieldToTest) > 130 Then
   %>
          <SCRIPT language="VBScript">
      MsgBox "Please enter a valid age", vbOKOnly, "Age verification"
          </SCRIPT>
          <%
      Age = False
   Else
       Age = True
   End If
End Function
0
 
AlexKalkakosAuthor Commented:
I put the above code in my .asp file. It compiles OK but the message doesn't appear. My .asp now looks like this:

<%
Option Explicit
Dim TheMessage
Dim MyFV
If IsEmpty(Request.Form("Submit")) Then
     TheMessage = "Please complete all the fields on the page"
else
     set MyFV = Server.CreateObject("FieldValidation.FVProcs")
     If not MyFV.EmailAddress(Request.Form("EmailAddress")) Then
          TheMessage = "Email Address is not valid!"
     End If
     If not MyFV.Age(Request.Form("Age")) Then
          TheMessage = TheMessage & " Age is not valid!"
     End If
     If not MyFV.BirthDate(Request.Form("BirthDate")) Then
          TheMessage = TheMessage & " Birth Date is not valid!"
     End If
     If not MyFV.Phone(Request.Form("Phone")) Then
          TheMessage = TheMessage & " Phone is not valid!"
     End If
     If not MyFV.ZipCode(Request.Form("ZipCode")) Then
          TheMessage = TheMessage & " Zip Code is not valid!"
     End If
     If len(TheMessage) = 0 Then
          TheMessage = "Your Data was accepted"
     End If
End If

Public Function Age(FieldToTest)
  If Not IsNumeric(FieldToTest) Then
 %>        
<SCRIPT language="VBScript">      
  MsgBox "Please enter a valid age", vbOKOnly, "Age verification"      
   </SCRIPT>        
<%            
Age = False
 ElseIf CInt(FieldToTest) < 0 Or CInt(FieldToTest) > 130 Then  
%>        
 <SCRIPT language="VBScript">    
 MsgBox "Please enter a valid age", vbOKOnly, "Age verification"        
</SCRIPT>        
 <%  
  Age = False
 Else    
  Age = True  
End If
End Function

%>

html code.......
0
 
hongjunCommented:
AlexKalkakos, did you call the Age function?

hongjun
0
 
hongjunCommented:
Doing a MsgBox in the server side results in Access Denied error.

To solve that (you actually know) is to use the below outside the <%..%> tag.
<script language=VBScript>
MsgBox "haha"
</script>

This will do the MsgBox in the client side.

hongjun
0
 
AlexKalkakosAuthor Commented:
I put directly the litle script below:

<script language=VBScript>
MsgBox "haha"
</script>

in my asp file, outside the <% %> tags and it worked almost OK. The only problem is that in order to close it I puss the OK button twice. What could be wrong? Below is what I did:

<%
Option Explicit
Dim TheMessage
Dim MyFV
If IsEmpty(Request.Form("Submit")) Then
     TheMessage = "Please complete all the fields on the page"
else
     set MyFV = Server.CreateObject("FieldValidation.FVProcs")
     If not MyFV.EmailAddress(Request.Form("EmailAddress")) Then
          TheMessage = "Email Address is not valid!"
     End If
     If not MyFV.Age(Request.Form("Age")) Then
     TheMessage = TheMessage & " Age is not valid!" %>    
         
          <SCRIPT language="VBScript">
          MsgBox "Please enter a valid age", vbOKOnly, "Age verification"      
          </SCRIPT>
         
     <%
     End If
     If not MyFV.BirthDate(Request.Form("BirthDate")) Then
          TheMessage = TheMessage & " Birth Date is not valid!"
     End If
     If not MyFV.Phone(Request.Form("Phone")) Then
          TheMessage = TheMessage & " Phone is not valid!"
     End If
     If not MyFV.ZipCode(Request.Form("ZipCode")) Then
          TheMessage = TheMessage & " Zip Code is not valid!"
     End If
     If len(TheMessage) = 0 Then
          TheMessage = "Your Data was accepted"
     End If
End If

 
%>
0
 
AlexKalkakosAuthor Commented:
Well it didn't work as was but from the above hints I manage to to something. Below is what I did using another example:

<%
Option Explicit
Dim MyOnlineStore
Set MyOnlineStore = Server.CreateObject("OnlineStore.OnlineStoreProcs")
'MyOnlineStore.RecordHit Session, "Check Out"
%>
   
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2 FINAL//EN">
<HTML>
<HEAD>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=ISO-8859-1">
<META NAME="Generator" CONTENT="NetObjects Fusion 4.0.1 for Windows">
<TITLE>Check Out</TITLE>
</HEAD>

<SCRIPT language="VBScript">
            Function PlaceOrder_OnClick()
            If MyForm.Email.value = "" Then
            MsgBox "Please enter a valid email", vbOKOnly, "Email verification"
            End If
            End Function
          
            </SCRIPT>  
<BODY BGCOLOR="#ffffff" LINK="#0000ff" VLINK="#800080" TEXT="#000000" TOPMARGIN=0 LEFTMARGIN=0 MARGINWIDTH="0" MARGINHEIGHT="0">
   
    <p>&nbsp;<p>
   
    <FORM NAME=MyForm ACTION="./receipt.asp" METHOD=post>
   
   
           <TABLE BORDER=0 CELLSPACING=0 CELLPADDING=0 WIDTH=615>
            <TR VALIGN=top ALIGN=left>
                <TD WIDTH=15 HEIGHT=15><IMG height=1 src="../assets/images/autogen/clearpixel.gif" width=15 border=0></TD>
                <TD></TD>
            </TR>
            <TR VALIGN=top ALIGN=left>
                <TD HEIGHT=25></TD>
                <TD WIDTH=600><IMG id=Banner2 height=25 alt="Check Out" src="../assets/images/autogen/Check_Out_NElementalBanner.GIF" width=600 border=0 ></TD>
            </TR>
        </TABLE>
        <TABLE CELLPADDING=0 CELLSPACING=0 BORDER=0 WIDTH=615>
            <TR VALIGN=top ALIGN=left>
                <TD>
                    <TABLE BORDER=0 CELLSPACING=0 CELLPADDING=0 WIDTH=210>
                        <TR VALIGN=top ALIGN=left>
                            <TD WIDTH=15><IMG height=1 src="../assets/images/autogen/clearpixel.gif" width=15 border=0></TD>
                            <TD WIDTH=195  BGCOLOR="#ffffcc" BACKGROUND="../assets/images/58.jpg">
                                <TABLE BORDER=0 CELLSPACING=0 CELLPADDING=5 WIDTH=195>
                                    <TR>
                                    <TD><P ALIGN=center><A href="./catalog_menu.asp"><B><FONT SIZE="-1" FACE="Arial,Helvetica,Univers,Zurich BT">Online Catalog</FONT></B></A></P></TD>
                                    </TR>
                                </TABLE>
                            </TD>
                        </TR>
                    </TABLE>
                </TD>
                <TD>
                    <TABLE BORDER=0 CELLSPACING=0 CELLPADDING=0 WIDTH=210>
                        <TR VALIGN=top ALIGN=left>
                            <TD WIDTH=210  BGCOLOR="#ffffcc" BACKGROUND="../assets/images/am.jpg">
                                <TABLE BORDER=0 CELLSPACING=0 CELLPADDING=5 WIDTH=210>
                                    <TR>
                                        <TD><P ALIGN=center><A href="../html/shopping_cart.asp"><B><FONT SIZE="-1" FACE="Arial,Helvetica,Univers,Zurich BT">Shopping Cart</FONT></B></A></P></TD>
                                    </TR>
                                </TABLE>
                            </TD>
                        </TR>
                    </TABLE>
                </TD>
                <TD>
                    <TABLE BORDER=0 CELLSPACING=0 CELLPADDING=0 WIDTH=195>
                        <TR VALIGN=top ALIGN=left>
                            <TD WIDTH=195  BGCOLOR="#ffffcc" BACKGROUND="../assets/images/back.jpg">
                                <TABLE BORDER=0 CELLSPACING=0 CELLPADDING=5 WIDTH=195>
                                    <TR>
                                        <TD><P ALIGN=center><A href="../html/support.asp"><B><FONT SIZE="-1" FACE="Arial,Helvetica,Univers,Zurich BT">Support</FONT></B></A></P></TD>
                                    </TR>
                                </TABLE>
                            </TD>
                        </TR>
                    </TABLE>
                </TD>
            </TR>
        </TABLE>
        <TABLE BORDER=0 CELLSPACING=0 CELLPADDING=0 WIDTH=615>
            <TR VALIGN=top ALIGN=left>
                <TD WIDTH=15><IMG height=1 src="../assets/images/autogen/clearpixel.gif" width=15 border=0></TD>
                <TD WIDTH=600  BGCOLOR="#000000">
                    <TABLE BORDER=0 CELLSPACING=0 CELLPADDING=5 WIDTH=600>
                        <TR>
                            <TD><P ALIGN=center><B><FONT COLOR="#ffffff" SIZE="+1" FACE="Arial,Helvetica,Univers,Zurich BT">Enter each field below to Check Out</FONT></B></P></TD>
                        </TR>
                    </TABLE>
                </TD>
            </TR>
        </TABLE>
        <TABLE BORDER=0 CELLSPACING=0 CELLPADDING=0 WIDTH=270>
            <TR VALIGN=top ALIGN=left>
                <TD WIDTH=15 HEIGHT=8><IMG height=1 src="../assets/images/autogen/clearpixel.gif" width=15 border=0></TD>
                <TD WIDTH=255><IMG height=1 src="../assets/images/autogen/clearpixel.gif" width=255 border=0></TD>
            </TR>
            <TR VALIGN=top ALIGN=left>
                <TD></TD>
                <TD WIDTH=255><P>Order Total: <% Response.Write FormatCurrency(MyOnlineStore.GetOrderTotal(Session)) %></P></TD>
            </TR>
        </TABLE>
        <TABLE CELLPADDING=0 CELLSPACING=0 BORDER=0 WIDTH=430>
            <TR VALIGN=top ALIGN=left>
                <TD>
                    <TABLE BORDER=0 CELLSPACING=0 CELLPADDING=0 WIDTH=135>
                        <TR VALIGN=top ALIGN=left>
                            <TD WIDTH=15 HEIGHT=11><IMG height=1 src="../assets/images/autogen/clearpixel.gif" width=15 border=0></TD>
                            <TD WIDTH=120><IMG height=1 src="../assets/images/autogen/clearpixel.gif" width=120 border=0></TD>
                        </TR>
                        <TR VALIGN=top ALIGN=left>
                            <TD></TD>
                            <TD WIDTH=120><P>Your Name</P> </TD>
                        </TR>
                    </TABLE>
                </TD>
                <TD>
                    <TABLE BORDER=0 CELLSPACING=0 CELLPADDING=0 WIDTH=295>
                        <TR VALIGN=top ALIGN=left>
                            <TD WIDTH=15 HEIGHT=11><IMG height=1 src="../assets/images/autogen/clearpixel.gif" width=15 border=0></TD>
                            <TD></TD>
                        </TR>
                        <TR VALIGN=top ALIGN=left>
                            <TD HEIGHT=22></TD>
                            <TD WIDTH=280><INPUT ID="FormsEditField1" NAME="YourName" SIZE=35 MAXLENGTH=35 ></TD>
                        </TR>
                    </TABLE>
                </TD>
            </TR>
        </TABLE>
        <TABLE CELLPADDING=0 CELLSPACING=0 BORDER=0 WIDTH=430>
            <TR VALIGN=top ALIGN=left>
                <TD>
                    <TABLE BORDER=0 CELLSPACING=0 CELLPADDING=0 WIDTH=143>
                        <TR VALIGN=top ALIGN=left>
                            <TD WIDTH=15 HEIGHT=8><IMG height=1 src="../assets/images/autogen/clearpixel.gif" width=15 border=0></TD>
                            <TD WIDTH=120><IMG height=1 src="../assets/images/autogen/clearpixel.gif" width=120 border=0></TD>
                            <TD WIDTH=8><IMG height=1 src="../assets/images/autogen/clearpixel.gif" width=8 border=0></TD>
                        </TR>
                       
                       
                        <TR VALIGN=top ALIGN=left>
                            <TD></TD>
                            <TD WIDTH=120><P>Email</P></TD>
                            <TD></TD>
                        </TR>
                                                                   
                        <TR VALIGN=top ALIGN=left>
                            <TD COLSPAN=3 HEIGHT=11></TD>
                        </TR>
                        <TR VALIGN=top ALIGN=left>
                            <TD></TD>
                            <TD WIDTH=120><P>Address</P></TD>
                            <TD></TD>
                        </TR>
                        <TR VALIGN=top ALIGN=left>
                            <TD COLSPAN=3 HEIGHT=16></TD>
                        </TR>
                        <TR VALIGN=top ALIGN=left>
                            <TD></TD>
                            <TD WIDTH=120><P>City, State Zip</P>  </TD>
                            <TD></TD>
                        </TR>
                        <TR VALIGN=top ALIGN=left>
                            <TD COLSPAN=3 HEIGHT=11></TD>
                        </TR>
                        <TR VALIGN=top ALIGN=left>
                            <TD></TD>
                            <TD WIDTH=120><P>Phone Number</P> </TD>
                            <TD></TD>
                        </TR>
                        <TR VALIGN=top ALIGN=left>
                            <TD COLSPAN=3 HEIGHT=18></TD>
                        </TR>
                        <TR VALIGN=top ALIGN=left>
                            <TD></TD>
                            <TD WIDTH=120><P>Credit Card Type</P>  </TD>
                            <TD></TD>
                        </TR>
                        <TR VALIGN=top ALIGN=left>
                            <TD COLSPAN=3 HEIGHT=9></TD>
                        </TR>
                        <TR VALIGN=top ALIGN=left>
                            <TD></TD>
                            <TD WIDTH=128 COLSPAN=2><P>Credit Card Number</P>  </TD>
                        </TR>
                        <TR VALIGN=top ALIGN=left>
                            <TD COLSPAN=3 HEIGHT=11></TD>
                        </TR>
                        <TR VALIGN=top ALIGN=left>
                            <TD></TD>
                            <TD WIDTH=120><P>Expiration Date</P> </TD>
                            <TD></TD>
                        </TR>
                    </TABLE>
                </TD>
                <TD>
               
               
               
                    <TABLE BORDER=0 CELLSPACING=0 CELLPADDING=0 WIDTH=287>
                        <TR VALIGN=top ALIGN=left>
                            <TD WIDTH=7 HEIGHT=8><IMG height=1 src="../assets/images/autogen/clearpixel.gif" width=7 border=0></TD>
                            <TD></TD>
                            <TD WIDTH=163><IMG height=1 src="../assets/images/autogen/clearpixel.gif" width=163 border=0></TD>
                        </TR>
                       
                       
                                               
                        <TR VALIGN=top ALIGN=left>
                             <TD HEIGHT=22></TD>
                                           <TD WIDTH=280 COLSPAN=2><INPUT ID="FormsEditField2" NAME="Email" SIZE=35 MAXLENGTH=35 ></TD>
                                           <TD></TD>
                         </TR>
                                     <TR VALIGN=top ALIGN=left>
                                           <TD COLSPAN=3 HEIGHT=8></TD>
                                     </TR>
                       
                       
                        <TR VALIGN=top ALIGN=left>
                            <TD HEIGHT=22></TD>
                            <TD WIDTH=280 COLSPAN=2><INPUT ID="FormsEditField3" NAME="Address" SIZE=35 MAXLENGTH=35 ></TD>
                        </TR>
                        <TR VALIGN=top ALIGN=left>
                            <TD COLSPAN=3 HEIGHT=8></TD>
                        </TR>
                        <TR VALIGN=top ALIGN=left>
                            <TD HEIGHT=22></TD>
                            <TD WIDTH=280 COLSPAN=2><INPUT ID="FormsEditField4" NAME="CSZ" SIZE=35 MAXLENGTH=35 ></TD>
                        </TR>
                        <TR VALIGN=top ALIGN=left>
                            <TD COLSPAN=3 HEIGHT=8></TD>
                        </TR>
                        <TR VALIGN=top ALIGN=left>
                            <TD HEIGHT=22></TD>
                            <TD WIDTH=280 COLSPAN=2><INPUT ID="FormsEditField5" NAME="PhoneNumber" SIZE=35 MAXLENGTH=35 ></TD>
                        </TR>
                        <TR VALIGN=top ALIGN=left>
                            <TD COLSPAN=3 HEIGHT=10></TD>
                        </TR>
                        <TR VALIGN=top ALIGN=left>
                            <TD HEIGHT=22></TD>
                            <TD WIDTH=280 COLSPAN=2><INPUT ID="FormsEditField6" NAME="CreditCardType" SIZE=35 MAXLENGTH=35 ></TD>
                        </TR>
                        <TR VALIGN=top ALIGN=left>
                            <TD COLSPAN=3 HEIGHT=6></TD>
                        </TR>
                        <TR VALIGN=top ALIGN=left>
                            <TD HEIGHT=22></TD>
                            <TD WIDTH=280 COLSPAN=2><INPUT ID="FormsEditField7" NAME="CreditCardNumber" SIZE=35 MAXLENGTH=35 ></TD>
                        </TR>
                        <TR VALIGN=top ALIGN=left>
                            <TD COLSPAN=3 HEIGHT=8></TD>
                        </TR>
                        <TR VALIGN=top ALIGN=left>
                            <TD HEIGHT=22></TD>
                            <TD WIDTH=280 COLSPAN=2><INPUT ID="FormsEditField8" NAME="ExpirationDate" SIZE=35 MAXLENGTH=35 ></TD>
                        </TR>
                        <TR VALIGN=top ALIGN=left>
                            <TD COLSPAN=3 HEIGHT=8></TD>
                        </TR>
                       
                        <TR VALIGN=top ALIGN=left>
                            <TD HEIGHT=24></TD>
                            <TD WIDTH=117><INPUT TYPE=submit NAME="PlaceOrder" VALUE="Place Order"  ID="FormsButton1"></TD>
                            <TD></TD>
                        </TR>
                                                     
                             
                                                                     
                    </TABLE>
                   
                </TD>
            </TR>
        </TABLE>
    </FORM></p>
</BODY>
</HTML>
0

Featured Post

VIDEO: THE CONCERTO CLOUD FOR HEALTHCARE

Modern healthcare requires a modern cloud. View this brief video to understand how the Concerto Cloud for Healthcare can help your organization.

  • 4
  • 2
  • 2
  • +1
Tackle projects and never again get stuck behind a technical roadblock.
Join Now