home *** CD-ROM | disk | FTP | other *** search
/ Australian Personal Computer 2000 October / tst.iso / multimed / IDN / web / mixup / remember.asp < prev    next >
Encoding:
Text File  |  1999-07-19  |  1.8 KB  |  75 lines
  1. <%
  2. strEmail = Request.Form("email")
  3. strType = Request.Form("type")
  4.  
  5. Set conn = Server.CreateObject("ADODB.Connection")
  6. conn.Open "Dance"
  7.  
  8. SQLQuery = "SELECT Email, RegID FROM Register"
  9. Set RSEmail = conn.Execute(SQLQuery)
  10.  
  11. Found = False
  12.  
  13. Do While Not RSEmail.EOF
  14.     If RSEmail("Email") = strEmail Then
  15.         Found = True
  16.         iRegID = RSEmail("RegID")
  17.     End If
  18.     RSEmail.MoveNext
  19. Loop
  20.  
  21. conn.Close
  22.  
  23. If Found = True Then
  24.  
  25. Response.Cookies("BMG_Mixup_RegID") = iRegID
  26. Response.Cookies("BMG_Mixup_RegID").Expires = Date + 700
  27.  
  28. Select Case strType
  29.     Case "screen"
  30.         strURL = "screen.asp?id=" & iRegID
  31.         Response.Redirect(strURL)
  32.     Case "comp"
  33.         strURL = "comp.asp?id=" & iRegID
  34.         Response.Redirect(strURL)
  35.     Case Else
  36.         Response.Redirect("thanks.asp")
  37. End Select
  38.  
  39. Else
  40. %>
  41.  
  42. <HTML>
  43. <HEAD>
  44. <TITLE>Dance.Com.2 - registration</TITLE>
  45. </HEAD>
  46.  
  47. <BODY BGCOLOR="#99CC66" background="images/background.gif" topmargin="0" leftmargin="0" marginwidth="0" marginheight="0"> 
  48. <table width="540" border="0" cellspacing="0" cellpadding="0">
  49.   <tr> 
  50.     <td width="165"><img src="images/header/register.gif" width="206" height="61"></td>
  51.     <td width="246"> </td>
  52.     <td><img src="images/group.gif" width="129" height="61"></td>
  53.   </tr>
  54. </table>
  55. <table width="540" border="0" cellspacing="0" cellpadding="0">
  56.   <tr> 
  57.     <td width="20"><img src="images/splash/blank.gif" width="25" height="6"></td>
  58.     <td  </td>
  59.   </tr>
  60.   <tr> 
  61.     <td > </td>
  62.     <td valign="top"> 
  63.       <p><font face="Arial" size="2">
  64.             <B>Sorry, not found!</B><P>
  65.             <font face="Arial" size="1">
  66.             We could not find your registration details, please go back and either re-enter your email address or 
  67.             fill in the main registration form.<P><BR></font>
  68.       </td>
  69.   </tr>
  70. </table>
  71. <p>  </p>
  72. </BODY>
  73. </HTML>
  74.  
  75. <%End If%>