home *** CD-ROM | disk | FTP | other *** search
/ Chip 2001 May / W2KPRK.iso / apps / crystal / disk24 / Xasp0 < prev    next >
Encoding:
Text File  |  1999-08-23  |  2.4 KB  |  110 lines
  1. <%@ LANGUAGE="VBSCRIPT" %>
  2. <% if Session("username") = "" then
  3.         Response.Redirect("/logon.asp")
  4.     end if
  5. %>
  6.  
  7. <%sql="SELECT max([Customer ID]) AS Maxcustid FROM Customer"%>
  8. <%Set Conn = Server.CreateObject("ADODB.Connection")%>
  9. <%Conn.Open "Xtreme sample data"%>
  10. <%Set RS = Conn.Execute(sql)
  11.  
  12. %>
  13. <!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML//EN">
  14. <html>
  15. <HEAD>
  16. <title>Add Customer</title>
  17.   
  18. </HEAD>
  19. <BODY bgcolor="#003366" text="#FF8000" link="#FF8000"
  20. vlink="#00FFFF">
  21.  
  22.  
  23.  
  24.     <FORM ACTION="addcustsub.asp" METHOD="POST" NAME="form1">
  25.         <INPUT TYPE=hidden VALUE="<% =RS.fields(0).value+1%>" NAME="custid">
  26. <div align="center"><center><table
  27.     border="0" width="400">
  28.         <tr>
  29.             <td>Business Name</td>
  30.             <td>
  31.         <INPUT TYPE=text SIZE=17 NAME="T1">
  32. </td>
  33.         </tr>
  34.         <tr>
  35.             <td>Account Manager</td>
  36.             <td>
  37.         <INPUT TYPE=text SIZE=17 NAME="T6">
  38. </td>
  39.         </tr>
  40.         <tr>
  41.             <td>Contact First Name</td>
  42.             <td>
  43.         <INPUT TYPE=text SIZE=17 NAME="T2">
  44. </td>
  45.         </tr>
  46.         <tr>
  47.             <td>Contact Last Name</td>
  48.             <td>
  49.         <INPUT TYPE=text SIZE=17 NAME="T3">
  50. </td>
  51.         </tr>
  52.      
  53.        
  54.         <tr>
  55.             <td>Address Line 1</td>
  56.             <td>
  57.         <INPUT TYPE=text SIZE=20 NAME="T8">
  58. </td>
  59.         </tr>
  60.         <tr>
  61.             <td>Address Line 2</td>
  62.             <td>
  63.         <INPUT TYPE=text SIZE=20 NAME="T9">
  64. </td>
  65.         </tr>
  66.         <tr>
  67.             <td>City</td>
  68.             <td>
  69.         <INPUT TYPE=text SIZE=20 NAME="T10">
  70. </td>
  71.         </tr>
  72.         <tr>
  73.             <td>Region</td>
  74.             <td>
  75.         <INPUT TYPE=text SIZE=12 NAME="T11">
  76. </td>
  77.         </tr>
  78.         <tr>
  79.             <td>Country</td>
  80.             <td>
  81.         <INPUT TYPE=text SIZE=12 NAME="T12">
  82. </td>
  83.         </tr>
  84.      
  85.         <tr>
  86.             <td>Phone</td>
  87.             <td>
  88.         <INPUT TYPE=text SIZE=12 NAME="T14">
  89. </td>
  90.         </tr>
  91.         <tr>
  92.             <td>Fax</td>
  93.             <td>
  94.         <INPUT TYPE=text SIZE=12 NAME="T15">
  95. </td>
  96.         </tr>
  97.         <tr>
  98.             <td> </td>
  99.             <td> </td>
  100.         </tr>
  101.     </table>
  102.     </center></div><p align="center">
  103.         <INPUT TYPE=submit VALUE="Submit"  NAME="B1">
  104. </p>
  105.     </FORM>
  106.  
  107.  
  108.      
  109. </BODY>
  110. </html>