home *** CD-ROM | disk | FTP | other *** search
/ Chip 1999 September / CHIPCD_9_99.iso / software / uaktualnienia / OptionPackPL / iis4_02.cab / myinfo.inc < prev    next >
Encoding:
Text File  |  1998-04-27  |  1.8 KB  |  58 lines
  1. <%
  2. '                *****************  Wizard
  3.  If Request.Form("theme") <> "" Then
  4.     myinfo.Theme = Request.Form("Theme")
  5.  End If
  6.  
  7.  If Request.Form("guestbook") <> "" Then
  8.     myinfo.Guestbook = Request.Form("guestbook")
  9.  End If
  10.  
  11.  If Request.Form("messages") <> "" Then
  12.     myinfo.Messages = Request.Form("messages")
  13.  End If
  14.  
  15. '                *****************  Template
  16.  
  17.  Sub variableAssignments
  18.     If request.Form("basics") <> "" Then
  19.         If request.Form("Theme") <> "" Then
  20.             myinfo.Theme = request.Form("Theme")
  21.             Theme = myinfo.Theme
  22.         End If
  23.     End If
  24.  
  25.     If request.Form("contents") <> "" Then
  26.         If Request.Form("guestbook") <> "" Then
  27.             myinfo.Guestbook = Request.Form("guestbook")
  28.         Else
  29.             myinfo.Guestbook = "0"
  30.         End If
  31.  
  32.         If Request.Form("messages") <> "" Then
  33.             myinfo.Messages = Request.Form("messages")
  34.         Else
  35.             myinfo.Messages = "0"
  36.         End If
  37.  
  38.         myinfo.Title = request.Form("title")
  39.         myinfo.faxPhone = request.Form("faxPhone")
  40.         myinfo.Address1 = request.Form("Address1")
  41.         myinfo.Address2 = request.Form("Address2")
  42.         myinfo.Address3 = request.Form("Address3")
  43.         myinfo.Address4 = request.Form("Address4")
  44.         myinfo.Department = request.Form("Department")
  45.         myinfo.Phone = request.Form("Phone")
  46.         myinfo.Email = request.Form("Email")
  47.         myinfo.Name = request.Form("Name")
  48.         myinfo.Heading1 = request.Form("Heading1")
  49.         myinfo.Words1 = request.Form("Words1")
  50.         myinfo.Heading2 = request.Form("Heading2")
  51.         myinfo.Words2 = request.Form("Words2")
  52.         myinfo.Heading3 = request.Form("Heading3")
  53.         myinfo.Words3 = request.Form("Words3")
  54.         myinfo.Heading4 = request.Form("Heading4")
  55.         myinfo.Words4 = request.Form("Words4")
  56.     End If
  57.  End Sub
  58. %>