Developer Toolbox Register Page Login user in after registration: Developer Tool Box, ASP, Login, register page

I have attached code snippets of each page in order of the following:

1st snippet - home page (login page)

2nd snippet - register page

3rd snippet - admin page

4th snippet - tNG.inc.asp which is a file that the developer toolbox created and includes at the top of the page. i think it contains login information.

I really hope you can help, thank you very much

Andy

BELOW IS THE CODE FOR THE LOGIN PAGE (HOME PAGE)
 
<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="Connections/connMedac.asp" -->
<!--#include file="includes/common/KT_common.asp" -->
<!--#include file="includes/tNG/tNG.inc.asp" -->
<%
'Make a transaction dispatcher instance
Dim tNGs: Set tNGs = new tNG_dispatcher
tNGs.Init ""
%>
<%
'Start log out user
  Set logout = new tNG_Logout
  logout.setLogoutType "link"
  logout.setPageRedirect "index.asp"
  logout.Execute
'End log out user
%>
<%
' Start trigger
Dim formValidation: Set formValidation = new tNG_FormValidation
formValidation.Init
tNGs.prepareValidation formValidation
' End trigger
%>
<%
'Make a login transaction instance
Dim loginTransaction: Set loginTransaction = new tNG_login
loginTransaction.init MM_connMedac_STRING
tNGs.addTransaction loginTransaction
'Register triggers
loginTransaction.registerTrigger Array("STARTER", "Trigger_Default_Starter", 1, "POST", "kt_login1")
loginTransaction.registerTrigger Array("BEFORE", "Trigger_Default_FormValidation", 10, formValidation)
loginTransaction.registerTrigger Array("END", "Trigger_Default_Redirect", 99, "{kt_login_redirect}")
' Add columns
loginTransaction.addColumn "kt_login_user", "STRING_TYPE", "POST", "kt_login_user", ""
loginTransaction.addColumn "kt_login_password", "STRING_TYPE", "POST", "kt_login_password", ""
loginTransaction.addColumn "kt_login_rememberme", "CHECKBOX_1_0_TYPE", "POST", "kt_login_rememberme", "0"
'End of login transaction instance
%>
<%
'Execute all the registered transactions
tNGs.executeTransactions
%>
<%
'Get the transaction recordset
Dim rscustom
Dim rscustom_numRows
 
Set rscustom = tNGs.getRecordset("custom")
rscustom_numRows = 0
%>
<%
' *** Validate request to log in to this site.
MM_LoginAction = Request.ServerVariables("URL")
If Request.QueryString <> "" Then MM_LoginAction = MM_LoginAction + "?" + Server.HTMLEncode(Request.QueryString)
MM_valUsername = CStr(Request.Form("username"))
If MM_valUsername <> "" Then
  Dim MM_fldUserAuthorization
  Dim MM_redirectLoginSuccess
  Dim MM_redirectLoginFailed
  Dim MM_loginSQL
  Dim MM_rsUser
  Dim MM_rsUser_cmd
  
  MM_fldUserAuthorization = "intAccessLevel"
  MM_redirectLoginSuccess = "admin.asp"
  MM_redirectLoginFailed = "failed.asp"
 
  MM_loginSQL = "SELECT txtUserUsername, txtUserPassword, txtUserFirstName, intAccessLevel"
  If MM_fldUserAuthorization <> "" Then MM_loginSQL = MM_loginSQL & "," & MM_fldUserAuthorization
  MM_loginSQL = MM_loginSQL & " FROM tblRegistration WHERE txtUserUsername = ? AND txtUserPassword = ?"
  Set MM_rsUser_cmd = Server.CreateObject ("ADODB.Command")
  MM_rsUser_cmd.ActiveConnection = MM_connMedac_STRING
  MM_rsUser_cmd.CommandText = MM_loginSQL
  MM_rsUser_cmd.Parameters.Append MM_rsUser_cmd.CreateParameter("param1", 200, 1, 255, MM_valUsername) ' adVarChar
  MM_rsUser_cmd.Parameters.Append MM_rsUser_cmd.CreateParameter("param2", 200, 1, 255, Request.Form("password")) ' adVarChar
  MM_rsUser_cmd.Prepared = true
  Set MM_rsUser = MM_rsUser_cmd.Execute
 
  If Not MM_rsUser.EOF Or Not MM_rsUser.BOF Then 
    ' username and password match - this is a valid user
    Session("MM_Username") = MM_valUsername
	Session("MM_UserID") = MM_rsUser("intAccessLevel")
	Session("MM_UserFirstName") = MM_rsUser("txtUserFirstName")
    If (MM_fldUserAuthorization <> "") Then
      Session("MM_UserAuthorization") = CStr(MM_rsUser.Fields.Item(MM_fldUserAuthorization).Value)
    Else
      Session("MM_UserAuthorization") = ""
    End If
    if CStr(Request.QueryString("accessdenied")) <> "" And true Then
      MM_redirectLoginSuccess = Request.QueryString("accessdenied")
    End If
    MM_rsUser.Close
    Response.Redirect(MM_redirectLoginSuccess)
  End If
  MM_rsUser.Close
  Response.Redirect(MM_redirectLoginFailed)
End If
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" >
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>Medac - Home</title>
<link rel="stylesheet" type="text/css" href="./index.css" media="all" />
<!--[if IE]>
<style type="text/css" media="all">.borderitem {border-style:solid;}</style>
<![endif]-->
<style type="text/css">
<!--
a {
	font-family: Arial, Helvetica, sans-serif;
	font-size: 12px;
}
a:link {
	text-decoration: none;
}
a:visited {
	text-decoration: none;
}
a:hover {
	text-decoration: underline;
}
a:active {
	text-decoration: none;
	font-style: italic;
	text-align: left;
}
-->
</style>
<script src="SpryAssets/SpryAccordion.js" type="text/javascript"></script>
<link href="SpryAssets/SpryAccordion.css" rel="stylesheet" type="text/css" />
<link href="includes/skins/mxkollection3.css" rel="stylesheet" type="text/css" media="all" />
<script src="includes/common/js/base.js" type="text/javascript"></script>
<script src="includes/common/js/utility.js" type="text/javascript"></script>
<script src="includes/skins/style.js" type="text/javascript"></script>
<% Response.Write tNGs.displayValidationRules()%>
</head>
 
<body class="AccordionPanelOpen">
<div id="Div2">
</div>
<div id="Div3">
</div>
<div id="index_r1_c1">
  <div id="search">
<form action="results.asp" method="get" target="_self" id="frmSearch">
  <label>
    <input name="search" type="text" class="searchField" id="search2" />
  </label>
  <label>
    <input type="submit" class="searchButton" value="Search"/>
  </label>
</form>
</div>
</div>
<div id="index_r1_c9">
</div>
<div id="index_r2_c1">
<span id="navbar"><a href="index.asp">Home</a> | <a href="about.asp">About us</a> | <a href="products.asp">Products</a> | <a href="contact.asp">Contact</a> | <a href="metoject.asp"> Metoject</a>
<%
' Show If User is Logged In (region1_adminlink)
  Set isLoggedIn = new tNG_UserLoggedIn
  isLoggedIn.Init MM_connMedac_STRING
' Grand Levels: Level
  isLoggedIn.addLevel "1"
  If isLoggedIn.Execute() Then
%> 
  | <a href="admin.asp"> Admin</a>
  <%
  End If
' End Show If User Is Logged In (region1_adminlink)
%>
</a></span></div>
<div id="index_r3_c1">
</div>
<div id="index_r4_c9" class="signout">
  <table width="95%" height="27" border="0">
    <tr>
      <td><%
' Show If User is Logged In (region2_signoutlink)
  Set isLoggedIn1 = new tNG_UserLoggedIn
  isLoggedIn1.Init MM_connMedac_STRING
' Grand Levels: Level
  isLoggedIn1.addLevel "1"
  If isLoggedIn1.Execute() Then
%>
          <a href="<%=logout.getLogoutLink()%>" class="bodytext">Signout</a>
          <%
  End If
' End Show If User Is Logged In (region2_signoutlink)
%></td>
    </tr>
  </table>
  <a href="logout.asp" class="bodytext"></a></div>
<div id="index_r5_c1">
</div>
<div id="index_r5_c2">
  <div id="home_textbox1">
  <p><span class="bodytext_h1">medac UK</span><br>
    <span class="bodytext"><br>
    medac has specialised in the   treatment of malignant diseases since its launch in 1970.  Now, medac is one of   the leading manufacturers of oncology products not only in Germany, but in many   international markets. medac offers both innovative and well proven therapeutic   options in the fields of urology, autoimmune diseases and fibrinolysis and is   only one of a handful of companies to also specialise in the field of   diagnostics.  medac combines therapeutic and diagnostic tools which can   determine the efficacy of a wide variety of treatments.</span></p>
</div>
</div>
 
<div id="index_r5_c4">
</div>
<div id="index_r5_c5">
<div id="inthenews_imagebox1"><img src="images/metoject_home_image1.jpg" alt="Metoject" width="126" height="180" /></div>
<div class="ampm" id="inthenews_textbox2"><span class="bodytext">  vast range of therapeutic   options as well as some less common indications. We are constantly expanding   our portfolio of products in order to provide our customers with the high   quality service they have come to expect.</span></div>
<div class="bodytext" id="inthenews_textbox1">
  <p><span class="bodytext_h1">Aims</span></p>
  <p>We aim to continually improve our   scientific capabilities, driving forward innovative developments which allow us   to offer a comprehensive range of , medications<span class="ampm"> for a</span></p>
</div>
<div id="inthenews_header">
  <p class="bodytext_h2">in the news<span class="bodytext_h3">metoject</span></p>
</div>
  <p class="bodytext_h2">&nbsp;</p>
  <p class="bodytext">&nbsp;</p>
  
</div>
<div id="index_r5_c8">
</div>
<div id="index_r6_c9">
  <div class="panelheader">Information</div>
</div>
<div id="index_r7_c9">
</div>
<div id="index_r7_c10">
  <div id="Accordion1" class="Accordion" tabindex="0">
    <div class="AccordionPanel">
      <div class="AccordionPanelTab">SST</div>
      <div class="AccordionPanelContent">
        <table width="145" border="0">
          <tr>
            <td width="35"><img src="images/SST.gif" width="35" height="25" /></td>
            <td width="100">Saliva Stimulating Tablets.</td>
          </tr>
          <tr>
            <td colspan="2" class="panel">More information on this product to follow<br />
            <a href="sst.asp" class="panel">&gt;further information</a><br /></td>
          </tr>
        </table>
      </div>
    </div>
<div class="AccordionPanel">
      <div class="AccordionPanelTab">Metoject</div>
<div class="AccordionPanelContent">
        <table width="145" border="0">
          <tr>
            <td width="35"><img src="images/metoject.gif" width="35" height="26" /></td>
            <td width="100">We show you where the product is made</td>
          </tr>
          <tr>
            <td colspan="2" class="panel"><a href="metoject.asp">&gt;further information</a><br /></td>
          </tr>
        </table>
        <p class="panel">&nbsp;</p>
      </div>
    </div>
  </div>
</div>
<div id="index_r7_c12">
</div>
<div id="index_r10_c10">
</div>
<div id="index_r10_c11">
</div>
<div id="index_r12_c10">
<div id="RHS_menu1">
<span class="bodytext_bold">Metoject</span><br />
<span class="bodytext">New product is featured in this months news. Read the reviews and share your comments. </span></div>
</div>
<div class="leftbar" id="index_r13_c1">
  <table width="96%" border="0" class="leftbar_table">
  <tr></tr>
  <tr>
    <td><p>Scion House,<br>
      Innovation Park,<br>
      Stirling University,<br>
      Stirling<br>
      FK9 4NF<br>
      T: 01786 458086<br>
      F: 01786 458032<br>
      E: <a href="mailto:info@medacuk.com">info@medacuk.com</a></p></td>
  </tr>
  </table>
  <table width="50" border="0">
  </table>
</div>
<div id="index_r16_c3">
  <div id="loginTable">
 
 
 
</div>
  <form method="post" id="form1" class="loginTable" action="<%= KT_escapeAttribute(KT_getFullUri()) %>">
    <table width="209" border="0" class="loginTable">
      <tr>
        <td class="loginTable"><span class="loginTableH1">Login</span></td>
        <td class="loginTable">&nbsp;</td>
      </tr>
      <tr>
        <td width="66" class="loginTable"><label for="kt_login_user" class="login">Email:</label></td>
        <td width="153" class="loginTable"><input name="kt_login_user" type="text" class="searchField" id="kt_login_user" value="<%=(KT_escapeAttribute(rscustom.Fields.Item("kt_login_user").Value))%>" size="32" /></td>
      </tr>
      <tr>
        <td class="loginTable"><label for="kt_login_password" class="login">Password:</label></td>
        <td class="loginTable"><input name="kt_login_password" type="password" class="searchField" id="kt_login_password" value="" size="32" /></td>
      </tr>
      <tr>
        <td class="loginTable"><label for="kt_login_rememberme" class="login">Remember me:</label></td>
        <td colspan="2" class="login"><input  <%If (CStr((KT_escapeAttribute(rscustom.Fields.Item("kt_login_rememberme").Value))) = CStr("1")) Then Response.Write("checked") : Response.Write("")%> type="checkbox" name="kt_login_rememberme" id="kt_login_rememberme" value="1" />          
        <a href="register.asp">Register</a></tr>
      <tr class="KT_buttons">
        <td colspan="2" class="login"><a href="forgottenpassword.asp">Forgot your password?</a>          
          <input name="kt_login1" type="submit" class="loginButton" id="kt_login1" value="Login" />
        </td>
      </tr>
    </table>
  </form>
</div>
<script type="text/javascript">
<!--
var Accordion1 = new Spry.Widget.Accordion("Accordion1");
//-->
</script>
</body>
</html>
 
BELOW IS THE CODE FOR THE REGISTER PAGE
 
<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="Connections/connMedac.asp" -->
<!--#include file="includes/common/KT_common.asp" -->
<!--#include file="includes/tNG/tNG.inc.asp" -->
 
<%
session("MM_UserEmail")=Request.Form("txtUserEmail")
session("MM_UserPassword")=Request.Form("txtUserPassword")
session("kt_login_id") = "UsrID"
session("kt_login_user") = "txtUserEmail"
session("kt_txtUserFirstName") = "txtUserFirstName"
session("kt_txtUserEmail") = "txtUserEmail"
session("kt_login_level") = "intAccessLevel"
session("kt_txtUserPassword") = "txtUserPassword"
%>
 
<%
'Make a transaction dispatcher instance
Dim tNGs: Set tNGs = new tNG_dispatcher
tNGs.Init ""
%>
 
 
 
<%
'start Trigger_CheckPasswords trigger
'remove this line if you want to edit the code by hand
Function Trigger_CheckPasswords (ByRef tNG)
  Dim myThrowError: Set myThrowError = new tNG_ThrowError
  myThrowError.Init tNG
  myThrowError.setErrorMsg "Passwords do not match."
  myThrowError.setField "txtUserPassword"
  myThrowError.setFieldErrorMsg "The two passwords do not match."
  Set Trigger_CheckPasswords = myThrowError.Execute()	
End Function
'end Trigger_CheckPasswords trigger
%>
 
 
 
<%
'start Trigger_WelcomeEmail trigger
'remove this line if you want to edit the code by hand
Function Trigger_WelcomeEmail (ByRef tNG)
  Dim emailObj: Set emailObj = new tNG_Email
  emailObj.Init tNG
  emailObj.setFrom "{KT_defaultSender}"
  emailObj.setTo "{txtUserEmail}"
  emailObj.setCC ""
  emailObj.setBCC ""
  emailObj.setSubject "Welcome"
  'FromFile method
  emailObj.setContentFile "includes/mailtemplates/welcome.html"
  emailObj.setEncoding "ISO-8859-1"
  emailObj.setFormat "HTML/Text"
  emailObj.setImportance "Normal"
  Set Trigger_WelcomeEmail = emailObj.Execute()
End Function
'end Trigger_WelcomeEmail trigger
%>
 
 
 
<%
'start Trigger_Custom trigger
Function Trigger_Custom (ByRef tNG)
Session("kt_login_id") = tNG.getPrimaryKeyValue()
Session("kt_login_user") = tNG.getColumnValue("txtUserEmail")
'Session("kt_login_level") =  tNG.getColumnValue("intAccessLevel")
Session("kt_txtUserPassword") =  tNG.getColumnValue("txtUserPassword")
 
SET Trigger_Custom  = Nothing
 
End Function
'end Trigger_Custom trigger
%>
 
 
 
<%
Dim rsUsers
Dim rsUsers_cmd
Dim rsUsers_numRows
 
Set rsUsers_cmd = Server.CreateObject ("ADODB.Command")
rsUsers_cmd.ActiveConnection = MM_connMedac_STRING
rsUsers_cmd.CommandText = "SELECT * FROM tblRegistration" 
rsUsers_cmd.Prepared = true
 
Set rsUsers = rsUsers_cmd.Execute
rsUsers_numRows = 0
%>
 
 
 
 
<%
Dim rsAccessLevel
Dim rsAccessLevel_cmd
Dim rsAccessLevel_numRows
 
Set rsAccessLevel_cmd = Server.CreateObject ("ADODB.Command")
rsAccessLevel_cmd.ActiveConnection = MM_connMedac_STRING
rsAccessLevel_cmd.CommandText = "SELECT intLevelID, txtLevel FROM tblAccessLevels" 
rsAccessLevel_cmd.Prepared = true
 
Set rsAccessLevel = rsAccessLevel_cmd.Execute
rsAccessLevel_numRows = 0
%>
 
 
 
 
 
<%
' Make an insert transaction instance 
Dim userRegistration: Set userRegistration = new tNG_insert
userRegistration.init MM_connMedac_STRING
tNGs.addTransaction userRegistration
' Register triggers
userRegistration.registerTrigger Array("STARTER", "Trigger_Default_Starter", 1, "POST", "KT_Insert1")
userRegistration.registerConditionalTrigger "{POST.txtUserPassword} <> {POST.re_txtUserPassword}", Array("BEFORE", "Trigger_CheckPasswords", 50)
userRegistration.registerTrigger Array("AFTER", "Trigger_WelcomeEmail", 40)
userRegistration.registerTrigger Array("AFTER", "Trigger_Custom", 50)
userRegistration.registerTrigger Array("END", "Trigger_Default_Redirect", 99, "admin.asp")
' Add columns
userRegistration.setTable "tblRegistration"
userRegistration.addColumn "txtUserTitle", "STRING_TYPE", "POST", "txtUserTitle", ""
userRegistration.addColumn "txtUserFirstName", "STRING_TYPE", "POST", "txtUserFirstName", ""
userRegistration.addColumn "txtUserSurname", "STRING_TYPE", "POST", "txtUserSurname", ""
userRegistration.addColumn "txtUserPosition", "STRING_TYPE", "POST", "txtUserPosition", ""
userRegistration.addColumn "txtUserPostcode", "STRING_TYPE", "POST", "txtUserPostcode", ""
userRegistration.addColumn "txtUserEmail", "STRING_TYPE", "POST", "txtUserEmail", ""
userRegistration.addColumn "txtUserGroup", "STRING_TYPE", "POST", "txtUserGroup", ""
userRegistration.addColumn "txtUserPassword", "STRING_TYPE", "POST", "txtUserPassword", ""
userRegistration.setPrimaryKey "UsrID", "NUMERIC_TYPE", "", ""
%>
 
 
 
 
<%
'Make a login transaction instance
Dim loginTransaction: Set loginTransaction = new tNG_login
loginTransaction.init MM_connMedac_STRING
tNGs.addTransaction loginTransaction
'Register triggers
loginTransaction.registerTrigger Array("STARTER", "Trigger_Default_Starter", 1, "SESSION", "kt_login1")
loginTransaction.registerTrigger Array("AFTER", "Trigger_Custom", 50)
loginTransaction.registerTrigger Array("END", "Trigger_Default_Redirect", 99, "{kt_login_redirect}")
 
' Add columns
loginTransaction.addColumn "kt_login_user", "STRING_TYPE", "POST", "txtUserEmail", ""
loginTransaction.addColumn "kt_login_password", "STRING_TYPE", "POST", "txtUserPassword", ""
loginTransaction.addColumn "kt_login_level", "STRING_TYPE", "POST", "intAccessLevel", ""
'End of login transaction instance
%>
 
 
 
<%
'Execute all the registered transactions
tNGs.executeTransactions
%>
<%
'Get the transaction recordset
Dim rstblRegistration
Dim rstblRegistration_numRows
 
Set rstblRegistration = tNGs.getRecordset("tblRegistration")
rstblRegistration_numRows = 0
%>
<%
'Get the transaction recordset
Dim rscustom
Dim rscustom_numRows
 
Set rscustom = tNGs.getRecordset("custom")
rscustom_numRows = 0
%>
 
 
 
 
<%
' *** Validate request to log in to this site.
MM_LoginAction = Request.ServerVariables("URL")
If Request.QueryString <> "" Then MM_LoginAction = MM_LoginAction + "?" + Server.HTMLEncode(Request.QueryString)
MM_valUsername = CStr(Request.Form("username"))
If MM_valUsername <> "" Then
  Dim MM_fldUserAuthorization
  Dim MM_redirectLoginSuccess
  Dim MM_redirectLoginFailed
  Dim MM_loginSQL
  Dim MM_rsUser
  Dim MM_rsUser_cmd
  
  MM_fldUserAuthorization = "intAccessLevel"
  MM_redirectLoginSuccess = "admin.asp"
  MM_redirectLoginFailed = "failed.asp"
 
  MM_loginSQL = "SELECT txtUserUsername, txtUserPassword, txtUserFirstName, intAccessLevel, txtUserEmail"
  If MM_fldUserAuthorization <> "" Then MM_loginSQL = MM_loginSQL & "," & MM_fldUserAuthorization
  MM_loginSQL = MM_loginSQL & " FROM tblRegistration WHERE txtUserUsername = ? AND txtUserPassword = ?"
  Set MM_rsUser_cmd = Server.CreateObject ("ADODB.Command")
  MM_rsUser_cmd.ActiveConnection = MM_connMedac_STRING
  MM_rsUser_cmd.CommandText = MM_loginSQL
  MM_rsUser_cmd.Parameters.Append MM_rsUser_cmd.CreateParameter("param1", 200, 1, 255, MM_valUsername) ' adVarChar
  MM_rsUser_cmd.Parameters.Append MM_rsUser_cmd.CreateParameter("param2", 200, 1, 255, Request.Form("password")) ' adVarChar
  MM_rsUser_cmd.Prepared = true
  Set MM_rsUser = MM_rsUser_cmd.Execute
 
  If Not MM_rsUser.EOF Or Not MM_rsUser.BOF Then 
    ' username and password match - this is a valid user
    Session("MM_Username") = MM_rsUser("txtUserEmail")
	Session("MM_UserID") = MM_rsUser("intAccessLevel")
	Session("MM_UserFirstName") = MM_rsUser("txtUserFirstName")
    If (MM_fldUserAuthorization <> "") Then
      Session("MM_UserAuthorization") = CStr(MM_rsUser.Fields.Item(MM_fldUserAuthorization).Value)
    Else
      Session("MM_UserAuthorization") = ""
    End If
    if CStr(Request.QueryString("accessdenied")) <> "" And true Then
      MM_redirectLoginSuccess = Request.QueryString("accessdenied")
    End If
    MM_rsUser.Close
    Response.Redirect(MM_redirectLoginSuccess)
  End If
  MM_rsUser.Close
  Response.Redirect(MM_redirectLoginFailed)
End If
%>
 
 
 
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" >
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>Medac - Register</title>
<!--[if IE]>
<style type="text/css" media="all">.borderitem {border-style:solid;}</style>
<![endif]-->
<style type="text/css">
<!--
a {
	font-family: Arial, Helvetica, sans-serif;
	font-size: 12px;
}
a:link {
	text-decoration: none;
}
a:visited {
	text-decoration: none;
}
a:hover {
	text-decoration: underline;
}
a:active {
	text-decoration: none;
}
-->
</style>
<script src="SpryAssets/SpryAccordion.js" type="text/javascript"></script>
<script src="SpryAssets/SpryValidationSelect.js" type="text/javascript"></script>
<script src="SpryAssets/SpryValidationTextField.js" type="text/javascript"></script>
<link href="SpryAssets/SpryAccordion.css" rel="stylesheet" type="text/css" />
<link href="register.css" rel="stylesheet" type="text/css" />
<link href="SpryAssets/SpryValidationSelect.css" rel="stylesheet" type="text/css" />
<link href="SpryAssets/SpryValidationTextField.css" rel="stylesheet" type="text/css" />
<link href="includes/skins/mxkollection3.css" rel="stylesheet" type="text/css" media="all" />
<script src="includes/common/js/base.js" type="text/javascript"></script>
<script src="includes/common/js/utility.js" type="text/javascript"></script>
<script src="includes/skins/style.js" type="text/javascript"></script>
<script src="SpryAssets/SpryValidationCheckbox.js" type="text/javascript"></script>
<script src="SpryAssets/SpryValidationConfirm.js" type="text/javascript"></script>
<link href="SpryAssets/SpryValidationCheckbox.css" rel="stylesheet" type="text/css" />
<link href="SpryAssets/SpryValidationConfirm.css" rel="stylesheet" type="text/css" />
</head>
 
<body class="AccordionPanelOpen">
<div id="Div2">
</div>
<div id="Div3">
</div>
<div id="index_r1_c1">
  <div id="search">
<form action="results.asp" method="get" target="_self" id="frmSearch">
  <label>
    <input name="search" type="text" class="searchField" id="search2" />
  </label>
  <label>
    <input type="submit" class="searchButton" value="Search"/>
  </label>
</form>
</div>
</div>
<div id="index_r1_c9">
</div>
<div id="index_r2_c1">
<span id="navbar"><a href="index.asp">Home</a> | <a href="about.asp">About us</a> | <a href="products.asp">Products</a> | <a href="contact.asp">Contact</a> | <a href="metoject.asp"> Metoject</a>
<%
' Show If User is Logged In (region1_adminlink)
  Set isLoggedIn = new tNG_UserLoggedIn
  isLoggedIn.Init MM_connMedac_STRING
' Grand Levels: Level
  isLoggedIn.addLevel "1"
  If isLoggedIn.Execute() Then
%> 
  | <a href="admin.asp"> Admin</a>
  <%
  End If
' End Show If User Is Logged In (region1_adminlink)
%>
</span></div>
<div id="index_r3_c1">
</div>
<div id="index_r4_c9" class="signout">
  <table width="95%" height="27" border="0">
    <tr>
      <td><%
' Show If User is Logged In (region2_signoutlink)
  Set isLoggedIn1 = new tNG_UserLoggedIn
  isLoggedIn1.Init MM_connMedac_STRING
' Grand Levels: Level
  isLoggedIn1.addLevel "1"
  If isLoggedIn1.Execute() Then
%>
          <a href="logout.asp" class="bodytext">Signout</a>
      <%
  End If
' End Show If User Is Logged In (region2_signoutlink)
%></td>
    </tr>
  </table>
  <a href="logout.asp" class="bodytext"></a>
 
</div>
<div id="index_r5_c1">
</div>
<div id="index_r5_c2">
  <form method="post" id="form1" action="<%=cStr(Request.Form("KT_Insert1"))%>">
    <table width="98%" border="0" cellspacing="3" class="bodytext">
      <tr>
        <td height="31" colspan="4" class="bodytext_h1">Register</td>
      </tr>
      <tr>
        <td colspan="4"><p><span class="requiredfields">FOR HEALTHCARE PROFESSIONALS ONLY</span><br />
          To recieve further information and access to SPC downloads, simply complete the short form below.</p></td>
      </tr>
      <tr>
        <td height="32" colspan="4" valign="middle">Are you a healthcare professional? <span id="spryyes">
          <label>
            <input type="checkbox" name="yes" id="yes" />
          </label>
        <span class="checkboxRequiredMsg">Please make a selection.</span></span>yes</td>
      </tr>
      <tr>
        <td height="24" colspan="4" class="requiredfields">(* = required fields)</td>
      </tr>
      <tr>
        <td width="18%" height="24" align="right"><span class="requiredfields">*</span>Title:</td>
        <td colspan="3"><span id="spry_title">
          <label>
            <select name="txtUserTitle" class="registerButton" id="txtUserTitle" value="<%=(KT_escapeAttribute(rstblRegistration.Fields.Item("txtUserTitle").Value))%>" >
              <option value="Dr" selected="selected">Dr</option>
<option value="Mr">Mr</option>
<option value="Mrs">Mrs</option>
            </select>
          </label>
        <span class="selectRequiredMsg">Please select an item.</span></span></td>
      </tr>
      <tr>
        <td align="right"><span class="requiredfields">*</span>First Name:</td>
        <td width="37%"><span id="spry_first_name">
          <label>
            <input name="txtUserFirstName" type="text" class="registerButton" id="txtUserFirstName" value="<%=(KT_escapeAttribute(rstblRegistration.Fields.Item("txtUserFirstName").Value))%>" size="30" />
            <br />
          </label>
        <span class="textfieldRequiredMsg">        A value is required.</span></span></td>
        <td width="16%" align="right"><span class="requiredfields">*</span>Surname:</td>
        <td width="29%"><span id="spry_surname">
          <label>
            <input name="txtUserSurname" type="text" class="registerButton" id="txtUserSurname" value="<%=(KT_escapeAttribute(rstblRegistration.Fields.Item("txtUserSurname").Value))%>" />
            <br />
          </label>
        <span class="textfieldRequiredMsg">A value is required.</span></span></td>
      </tr>
      <tr>
        <td align="right"><span class="requiredfields">*</span>Email Address:</td>
        <td><span id="spry_email">
        <label>
          <input name="txtUserEmail" type="text" class="registerButton" id="txtUserEmail" value="<%=(KT_escapeAttribute(rscustom.Fields.Item("kt_login_user").Value))%>" />
          <br />
        </label>
        <span class="textfieldRequiredMsg">A value is required.</span><span class="textfieldInvalidFormatMsg">Invalid format.</span></span></td>
        <td align="right"><span class="requiredfields">*</span>Confirm Email:</td>
        <td><span id="spry_confirm_email">
          <label>
            <input name="register_Confirmemail" type="text" class="registerButton" id="register_Confirmemail" />
          </label>
        <span class="confirmRequiredMsg"><br />
        A value is required.</span><span class="confirmInvalidMsg">The values don't match.</span></span></td>
      </tr>
      <tr>
        <td align="right"><span class="requiredfields">*</span>Professional Group:</td>
        <td><span id="txtUserGroup">
          <label>
            <select name="txtUserGroup" class="registerButton" id="txtUserGroup">
              <option value="Antibiotic Pharmacist" selected="selected">Antibiotic Pharmacist</option>
              <option value="Bachelor of Science in Nursing">Bachelor of Science in Nursing</option>
              <option value="Certified Nurse-Midwife">Certified Nurse-Midwife</option>
              <option value="Clinical Specialist">Clinical Specialist</option>
              <option value="Community Matron">Community Matron</option>
              <option value="District Nurse">District Nurse</option>
              <option value="Medical Assistant">Medical Assistant</option>
              <option value="Medical Doctor">Medical Doctor</option>
              <option value="Medical Technician">Medical Technician</option>
              <option value="Nurse Practitioner">Nurse Practitioner</option>
              <option value="Office Manager">Office Manager</option>
              <option value="Office Staff">Office Staff</option>
              <option value="Osteopath">Osteopath</option>
              <option value="Pharmacist">Pharmacist</option>
              <option value="Pharmacist - Hospital">Pharmacist - Hospital</option>
              <option value="Pharmacist - Retail">Pharmacist - Retail</option>
              <option value="Philosophy Doctor (phD)">Philosophy Doctor (phD)</option>
              <option value="Physician Assistant">Physician Assistant</option>
              <option value="Podiatrist">Podiatrist</option>
              <option value="Practice Nurse">Practice Nurse</option>
              <option value="Registered Nurse">Registered Nurse</option>
              <option value="Student">Student</option>
            </select>
          </label>
        <span class="selectRequiredMsg">Please select an item.</span></span></td>
        <td align="right"><span class="requiredfields">*</span>Position:</td>
        <td><span id="spry_position">
          <label>
            <select name="txtUserPosition" class="registerButton" id="txtUserPosition">
              <option value="Allergy" selected="selected">Allergy</option>
              <option value="Anesthesiology">Anesthesiology</option>
              <option value="Cardiology">Cardiology</option>
              <option value="Colorectal Surgery">Colorectal Surgery</option>
              <option value="Dermatology">Dermatology</option>
              <option value="Emergency Medicine">Emergency Medicine</option>
              <option value="Endocrinology">Endocrinology</option>
              <option value="Epidemiology">Epidemiology</option>
              <option value="Family Practice">Family Practice</option>
              <option value="Gastroenterology">Gastroenterology</option>
              <option value="General Practice">General Practice</option>
              <option value="General Surgery">General Surgery</option>
              <option value="Geriatric Medicine">Geriatric Medicine</option>
              <option value="Gynaecology">Gynaecology</option>
              <option value="Haemotology">Haemotology</option>
              <option value="Immunology">Immunology</option>
              <option value="Infectious Disease">Infectious Disease</option>
              <option value="Intensive Care">Intensive Care</option>
              <option value="Microbiology">Microbiology</option>
              <option value="Nephrology">Nephrology</option>
              <option value="Neurology">Neurology</option>
              <option value="Obstetrics &amp; Gynecology">Obstetrics &amp; Gynecology</option>
              <option value="Occupational Medicine">Occupational Medicine </option>
              <option value="Oncology">Oncology</option>
              <option value="Ophthalmology">Ophthalmology</option>
              <option value="Orthopedic Surgery">Orthopedic Surgery</option>
              <option value="Other">Other</option>
              <option value="Otolaryngology">Otolaryngology</option>
              <option value="Paediatrics">Paediatrics</option>
              <option value="Pain Management">Pain Management</option>
              <option value="Palliative Care">Palliative Care</option>
              <option value="Plastic Surgery">Plastic Surgery</option>
              <option value="Psychiatry">Psychiatry</option>
              <option value="Public Health">Public Health</option>
              <option value="Radiology">Radiology</option>
              <option value="Rehabilitation Medicine">Rehabilitation Medicine</option>
              <option value="Reproductive Endocrinologist">Reproductive Endocrinologist</option>
              <option value="Respiratory Medicine">Respiratory Medicine</option>
              <option value="Rheumatology">Rheumatology</option>
              <option value="Transplantation">Transplantation</option>
              <option value="Uro-gyneacologist">Uro-gyneacologist</option>
              <option value="Urology">Urology</option>
              <option value="Vaccines">Vaccines</option>
              <option value="Vascular Surgery">Vascular Surgery</option>
            </select>
          </label>
        <span class="selectRequiredMsg">Please select an item.</span></span></td>
      </tr>
      <tr>
        <td align="right"><span class="requiredfields">*</span>Password:</td>
        <td><span id="spry_password">
          <label>
            <input name="txtUserPassword" type="password" class="registerButton" id="txtUserPassword" value="<%=(KT_escapeAttribute(rstblRegistration.Fields.Item("txtUserPassword").Value))%>" />
            <br />
          </label>
        <span class="textfieldRequiredMsg">A value is required.</span></span></td>
        <td align="right"><span class="requiredfields">*</span>Confirm Password:</td>
        <td><span id="spry_confirm_password">
          <label>
            <input name="re_txtUserPassword" type="password" class="registerButton" id="re_txtUserPassword" />
            <br />
          </label>
        <span class="confirmRequiredMsg">A value is required.</span><span class="confirmInvalidMsg">The values don't match.</span></span></td>
      </tr>
      <tr>
        <td align="right"><span class="requiredfields">*</span>Work Postcode:</td>
        <td colspan="3"><span id="spry_Postcode">
          <label>
            <input name="txtUserPostcode" type="text" class="registerButton" id="txtUserPostcode" value="<%=(KT_escapeAttribute(rstblRegistration.Fields.Item("txtUserPostcode").Value))%>" />
            <br />
          </label>
        <span class="textfieldRequiredMsg">A value is required.</span></span></td>
      </tr>
      <tr>
        <td align="right">&nbsp;</td>
        <td colspan="3"><input name="KT_Insert1" type="submit" class="registerButton" id="KT_Insert1" value="Submit" /></td>
      </tr>
    </table>
  </form>
</div>
<div id="index_r6_c9">
  <div class="panelheader">Information</div>
</div>
<div id="index_r7_c9">
</div>
<div id="index_r7_c10">
  <div id="Accordion1" class="Accordion" tabindex="0">
    <div class="AccordionPanel">
      <div class="AccordionPanelTab">SST</div>
      <div class="AccordionPanelContent">
        <table width="145" border="0">
          <tr>
            <td width="35"><img src="images/SST.gif" width="35" height="25" /></td>
            <td width="100">Saliva Stimulating Tablets.</td>
          </tr>
          <tr>
            <td colspan="2" class="panel">More information on this product to follow<br />
            <a href="saliva.asp" class="panel">&gt;further information</a><br /></td>
          </tr>
        </table>
      </div>
    </div>
<div class="AccordionPanel">
      <div class="AccordionPanelTab">Metoject</div>
<div class="AccordionPanelContent">
        <table width="145" border="0">
          <tr>
            <td width="35"><img src="images/metoject.gif" width="35" height="26" /></td>
            <td width="100">We show you where the product is made</td>
          </tr>
          <tr>
            <td colspan="2" class="panel"><a href="metoject.asp">&gt;further information</a><br /></td>
          </tr>
        </table>
        <p class="panel">&nbsp;</p>
      </div>
    </div>
  </div>
</div>
<div id="index_r7_c12">
</div>
<div id="index_r10_c10">
</div>
<div id="index_r10_c11">
</div>
<div id="index_r12_c10">
<div id="RHS_menu1">
<span class="bodytext_bold">Metoject</span><span class="bodytext"><br />
New product is featured in this months news. Read the reviews and share your comments. </span> </div>
</div>
<div class="leftbar" id="index_r13_c1">
  <table width="96%" border="0" class="leftbar_table">
  <tr></tr>
  <tr>
    <td>Scion House,<br>
Innovation Park,<br>
Stirling University,<br>
Stirling<br>
FK9 4NF<br>
T: 01786 458086<br>
F: 01786 458032<br>
E:<a href="mailto:info@medacuk.com"> info@medacuk.com</a></td>
  </tr>
  </table>
  <table width="50" border="0">
  </table>
</div>
<%
	Response.Write tNGs.getErrorMsg()
%>
<script type="text/javascript">
<!--
var Accordion1 = new Spry.Widget.Accordion("Accordion1");
var spryselect1 = new Spry.Widget.ValidationSelect("spry_title");
var sprytextfield1 = new Spry.Widget.ValidationTextField("spry_first_name");
var sprycheckbox1 = new Spry.Widget.ValidationCheckbox("spryyes");
var spryselect2 = new Spry.Widget.ValidationSelect("txtUserGroup");
var sprytextfield2 = new Spry.Widget.ValidationTextField("spry_surname");
var sprytextfield3 = new Spry.Widget.ValidationTextField("spry_email", "email");
var spryconfirm1 = new Spry.Widget.ValidationConfirm("spry_confirm_email", "txtUserEmail");
var spryselect3 = new Spry.Widget.ValidationSelect("spry_position");
var sprytextfield4 = new Spry.Widget.ValidationTextField("spry_password", "none");
var spryconfirm2 = new Spry.Widget.ValidationConfirm("spry_confirm_password", "txtUserPassword");
var sprytextfield5 = new Spry.Widget.ValidationTextField("spry_Postcode");
//-->
</script>
</body>
</html>
<%
rsUsers.Close()
Set rsUsers = Nothing
%>
<%
rsAccessLevel.Close()
Set rsAccessLevel = Nothing
%>
 
 
BELOW IS THE CODE FOR THE ADMIN PAGE
 
<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="Connections/connMedac.asp" -->
<!--#include file="includes/tNG/tNG.inc.asp" -->
 
<%
session("MM_UserEmail")=Request.Form("txtUserEmail")
session("MM_UserPassword")=Request.Form("txtUserPassword")
session("kt_login_id") = "UsrID"
session("kt_login_user") = "txtUserEmail"
session("kt_txtUserFirstName") = "txtUserFirstName"
session("kt_txtUserEmail") = "txtUserEmail"
session("kt_login_level") = "intAccessLevel"
session("kt_txtUserPassword") = "txtUserPassword"
%>
 
 
<%
'Start log out user
  Set logout = new tNG_Logout
  logout.setLogoutType "link"
  logout.setPageRedirect "index.asp"
  logout.Execute
'End log out user
%>
<%
'Start Restrict Access to Page
  Dim restrict: Set restrict  = new tNG_RestrictAccess
  restrict.Init	MM_connMedac_STRING, ""
'Grand Levels: Level
  restrict.addLevel "1"
  restrict.Execute
'End Restrict Access to Page
%>
<%
Dim rsEmail
Dim rsEmail_cmd
Dim rsEmail_numRows
 
Set rsEmail_cmd = Server.CreateObject ("ADODB.Command")
rsEmail_cmd.ActiveConnection = MM_connMedac_STRING
rsEmail_cmd.CommandText = "SELECT * FROM tblEmail" 
rsEmail_cmd.Prepared = true
 
Set rsEmail = rsEmail_cmd.Execute
rsEmail_numRows = 0
%>
<%
Dim rsUsers
Dim rsUsers_cmd
Dim rsUsers_numRows
 
Set rsUsers_cmd = Server.CreateObject ("ADODB.Command")
rsUsers_cmd.ActiveConnection = MM_connMedac_STRING
rsUsers_cmd.CommandText = "SELECT * FROM tblRegistration" 
rsUsers_cmd.Prepared = true
 
Set rsUsers = rsUsers_cmd.Execute
rsUsers_numRows = 0
%>
<!--#include file="WA_Universal_Email/AspEmail_VB.asp" -->
<!--#include file="WA_Universal_Email/MailFormatting_VB.asp" -->
<%
function WA_Universal_Email_1_SendMail(RecipientEmail)
  dim MailObject, MailAttachments, MailBCC, MailCC, MailTo, MailBodyFormat, MailBody, MailImportance, MailFrom, MailSubject
  MailAttachments = ""
  MailBCC         = ""
  MailCC          = ""
  MailTo          = ""
  MailBodyFormat  = ""
  MailBody        = ""
  MailImportance  = ""
  MailFrom        = "" & cStr((rsUsers.Fields.Item("txtUserFirstName").Value)) & "|WA|" & cStr((rsUsers.Fields.Item("txtUserEmail").Value)) & ""
  MailSubject     = "test"
 
  'Global Variables
  gBodyFormat = ""
 
  set WA_MailObject = WAUE_Definition("localhost","25","","")
 
  if (RecipientEmail <> "")     then
    set WA_MailObject = WAUE_AddRecipient(WA_MailObject,RecipientEmail)
  else
    'To Entries
  end if
 
  'Attachment Entries
 
  'BCC Entries
 
  'CC Entries
 
  'Character Set
 
  'Body Format
  set WA_MailObject = WAUE_BodyFormat(WA_MailObject,0)
  MailBodyFormat = gBodyFormat
 
  'Set Importance
  set WA_MailObject = WAUE_SetImportance(WA_MailObject,"3")
 
  'Start Mail Body
MailBody = MailBody & "test" & vbCrlf & ""
MailBody = MailBody & "" & vbCrlf & ""
MailBody = MailBody & cStr(Request.Form(""))
MailBody = MailBody & ""
  'End Mail Body
 
  set WA_MailObject = WAUE_SendMail(WA_MailObject,MailAttachments,MailBCC,MailCC,MailTo,MailImportance,MailFrom,MailSubject,MailBody)
 
  set WA_MailObject = nothing
end function
%>
<%
if ((cStr(Request.Form("submit")) <> ""))     then
  'WA Universal Email object="AspEmail"
  'Send Loop Once Per Entry
  WA_Universal_Email_1_SendMail("andrew.spackman@bluebean.org.uk")
 
  'Send Mail All Entries
  if ("index.asp"<>"")     then
    Response.Redirect("index.asp")
  end if
end if
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" >
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>Medac - Administration</title>
<!--[if IE]>
<style type="text/css" media="all">.borderitem {border-style:solid;}</style>
<![endif]-->
<style type="text/css">
<!--
a {
	font-family: Arial, Helvetica, sans-serif;
	font-size: 12px;
}
a:link {
	text-decoration: none;
}
a:visited {
	text-decoration: none;
}
a:hover {
	text-decoration: underline;
}
a:active {
	text-decoration: none;
}
-->
</style>
<script src="SpryAssets/SpryAccordion.js" type="text/javascript"></script>
<script src="SpryAssets/SpryValidationCheckbox.js" type="text/javascript"></script>
<script src="SpryAssets/SpryValidationTextarea.js" type="text/javascript"></script>
<link href="SpryAssets/SpryAccordion.css" rel="stylesheet" type="text/css" />
<link href="admin.css" rel="stylesheet" type="text/css" />
<link href="SpryAssets/SpryValidationCheckbox.css" rel="stylesheet" type="text/css" />
<link href="SpryAssets/SpryValidationTextarea.css" rel="stylesheet" type="text/css" />
</head>
 
<body class="AccordionPanelOpen">
<div id="Div2">
</div>
<div id="Div3">
</div>
<div id="index_r1_c1">
  <div id="search">
<form action="results.asp" method="get" target="_self" id="frmSearch">
  <label>
    <input name="search" type="text" class="searchField" id="search2" />
  </label>
  <label>
    <input type="submit" class="searchButton" value="Search"/>
  </label>
  <a href="logout.asp"></a>
</form>
</div>
</div>
<div id="index_r1_c9">
</div>
<div id="index_r2_c1">
<span id="navbar"><a href="index.asp">Home</a> | <a href="about.asp">About us</a> | <a href="products.asp">Products</a> | <a href="contact.asp">Contact</a> | <a href="metoject.asp"> Metoject</a></span> </div>
<div id="index_r3_c1"></div>
<div id="index_r4_c9" class="signout">
  <table width="95%" height="27" border="0">
    <tr>
      <td><a href="<%=logout.getLogoutLink()%>" class="bodytext">Signout</a></td>
    </tr>
  </table>
  <a href="logout.asp" class="bodytext"></a>
</div>
<div id="index_r5_c1">
</div>
<div id="index_r5_c2">
<div id="Admin1">
  <form id="frmInfoReq" method="post">
    <table width="97%" border="0" class="bodytext">
      <tr>
        <td height="37" colspan="4" class="bodytext_h1">Welcome <%= Session("kt_txtUserFirstName") %></td>
      </tr>
      <tr>
        <td height="42" colspan="2" valign="top">What information can we provide?</td>
        <td width="25%">&nbsp;</td>
        <td width="23%">&nbsp;</td>
      </tr>
      <tr>
        <td width="24%">&nbsp;</td>
        <td width="28%">Specialist Products:</td>
        <td>Basic therapeutics:</td>
        <td>Supportive therapies:</td>
      </tr>
      <tr>
        <td height="23" valign="middle"><span id="sprycheckbox_SPC">
        <label>
          <input type="checkbox" name="spry_SPC" id="spry_SPC" />
        </label>
        </span>SPC</td>
        <td><span id="sprycheckbox_disodium">
          <label>
            <input type="checkbox" name="spry_disodium" id="spry_disodium" />
          </label>
        </span>Disodium Levofolinate</td>
        <td><span id="sprycheckbox_5-FU">
          <label>
            <input type="checkbox" name="spry_5-FU" id="spry_5-FU" />
          </label>
        </span>5-FU</td>
        <td><span id="sprycheckbox_pamidronate">
          <label>
            <input type="checkbox" name="spry_pamidronate" id="spry_pamidronate" />
          </label>
        </span>Pamidronate</td>
      </tr>
      <tr>
        <td><span id="spry_safety">
        <label>
          <input type="checkbox" name="spry_Safety" id="spry_Safety" />
        </label>
        </span>Safety data sheet</td>
        <td><span id="sprycheckbox_lomustine">
          <label>
            <input type="checkbox" name="spry_lomustine" id="spry_lomustine" />
          </label>
        </span>Lomustine</td>
        <td><span id="sprycheckbox_bicalutamide">
          <label>
            <input type="checkbox" name="spry_bicalutamide" id="spry_bicalutamide" />
          </label>
        </span>Bicalutamide</td>
        <td><span id="sprycheckbox_SST">
        <label>
          <input type="checkbox" name="spry_SST" id="spry_SST" />
        </label>
        </span>SST&reg;</td>
      </tr>
      <tr>
        <td><span id="sprycheckbox_stability_data">
        <label>
          <input type="checkbox" name="spry_stability_data" id="spry_stability_data" />
        </label>
        </span>Stability data</td>
        <td><span id="sprycheckbox_metoject">
          <label>
            <input type="checkbox" name="spry_metoject" id="spry_metoject" />
          </label>
        </span>Metoject&reg;</td>
        <td><span id="sprycheckbox_dacarbazine">
          <label>
            <input type="checkbox" name="spry_dacarbazine" id="spry_dacarbazine" />
          </label>
        </span>Dacarbazine</td>
        <td>&nbsp;</td>
      </tr>
      <tr>
        <td valign="top">&nbsp;</td>
        <td><span id="sprycheckbox_sodiofolin">
          <label>
            <input type="checkbox" name="spry_sodiofolin" id="spry_sodiofolin" />
          </label>
          </span>Sodiofolin <br />
          (disodium folinate)</td>
        <td><span id="sprycheckbox_doxorubicin">
          <label>
            <input type="checkbox" name="spry_doxorubicin" id="spry_doxorubicin" />
          </label>
        </span>Doxorubicin</td>
        <td>&nbsp;</td>
      </tr>
      <tr>
        <td>&nbsp;</td>
        <td><span id="sprycheckbox_treosulfan">
          <label>
            <input type="checkbox" name="spry_treosulfan" id="spry_treosulfan" />
          </label>
        </span>Treosulfan</td>
        <td><span id="sprycheckbox_epirubicin">
          <label>
            <input type="checkbox" name="spry_epirubicin" id="spry_epirubicin" />
          </label>
        </span>Epirubicin</td>
        <td>&nbsp;</td>
      </tr>
      <tr>
        <td>&nbsp;</td>
        <td><span id="sprycheckbox_Gliolan">
        <label>
          <input type="checkbox" name="spry_Gliolan" id="spry_Gliolan" />
        </label>
        </span>Gliolan</td>
        <td><span id="sprycheckbox_etoposide">
          <label>
            <input type="checkbox" name="spry_etoposide" id="spry_etoposide" />
          </label>
        </span>Etoposide</td>
        <td>&nbsp;</td>
      </tr>
      <tr>
        <td>&nbsp;</td>
        <td>&nbsp;</td>
        <td><span id="sprycheckbox_hydro">
          <label>
            <input type="checkbox" name="spry_hydro" id="spry_hydro" />
          </label>
        </span>Hydroxycarbamide</td>
        <td>&nbsp;</td>
      </tr>
      <tr>
        <td>&nbsp;</td>
        <td>&nbsp;</td>
        <td><span id="sprycheckbox_oxaliplatin">
          <label>
            <input type="checkbox" name="spry_oxaliplatin" id="spry_oxaliplatin" />
          </label>
        </span>Oxaliplatin</td>
        <td>&nbsp;</td>
      </tr>
      <tr>
        <td>&nbsp;</td>
        <td>&nbsp;</td>
        <td><span id="sprycheckbox_paclitaxel">
          <label>
            <input type="checkbox" name="spry_paclitaxel" id="spry_paclitaxel" />
          </label>
        </span>Paclitaxel</td>
        <td>&nbsp;</td>
      </tr>
      <tr>
        <td height="38" colspan="2">Please enter any additional information requirements in the space provided below:</td>
        <td valign="top"><span id="sprycheckbox_vinorelbine">
          <label>
            <input type="checkbox" name="spry_vinorelbine" id="spry_vinorelbine" />
          </label>
        </span>Vinorelbine</td>
        <td>&nbsp;</td>
      </tr>
      <tr>
        <td height="70" colspan="4" valign="top"><span id="sprytextarea_additional_info">
          <label>
            <textarea name="spry_additional_info" cols="50" rows="5" class="registerButton" id="spry_additional_info"></textarea>
          </label>
        </span></td>
      </tr>
      <tr>
        <td height="36"><label>
          <input name="submit" type="submit" class="registerButton" id="submit" value="Submit" />
        </label></td>
        <td>&nbsp;</td>
        <td>&nbsp;</td>
        <td>&nbsp;</td>
      </tr>
    </table>
  </form>
  </div>
<p></p>
</div>
<div id="index_r6_c9">
  <div class="panelheader">Information</div>
</div>
<div id="index_r7_c9">
</div>
<div id="index_r7_c10">
  <div id="Accordion1" class="Accordion" tabindex="0">
    <div class="AccordionPanel">
      <div class="AccordionPanelTab">SST</div>
      <div class="AccordionPanelContent">
        <table width="145" border="0">
          <tr>
            <td width="35"><img src="images/SST.gif" width="35" height="25" /></td>
            <td width="100">Saliva Stimulating Tablets.</td>
          </tr>
          <tr>
            <td colspan="2" class="panel">More information on this product to follow<br />
            <a href="sst.asp" class="panel">&gt;further information</a><br /></td>
          </tr>
        </table>
      </div>
    </div>
<div class="AccordionPanel">
      <div class="AccordionPanelTab">Metoject</div>
<div class="AccordionPanelContent">
        <table width="145" border="0">
          <tr>
            <td width="35"><img src="images/metoject.gif" width="35" height="26" /></td>
            <td width="100">We show you where the product is made</td>
          </tr>
          <tr>
            <td colspan="2" class="panel"><a href="metoject.asp">&gt;further information</a><br /></td>
          </tr>
        </table>
        <p class="panel">&nbsp;</p>
      </div>
    </div>
  </div>
</div>
<div id="index_r7_c12">
</div>
<div id="index_r10_c10">
</div>
<div id="index_r10_c11">
</div>
<div id="index_r12_c10">
<div id="RHS_menu1">
<span class="bodytext_bold">Metoject</span><span class="bodytext"><br />
New product is featured in this months news. Read the reviews and share your comments. </span> </div>
 
</div>
<div class="leftbar" id="index_r13_c1">
  <table width="96%" border="0" class="leftbar_table">
  <tr></tr>
  <tr>
    <td>Scion House,<br />
Innovation Park,<br />
Stirling University,<br />
Stirling<br />
FK9 4NF<br />
T: 01786 458086<br />
F: 01786 458032<br />
E: <a href="mailto:info@medacuk.com">info@medacuk.com</a></td>
  </tr>
  </table>
  <table width="50" border="0">
  </table>
</div>
<script type="text/javascript">
<!--
var Accordion1 = new Spry.Widget.Accordion("Accordion1");
var sprycheckbox5 = new Spry.Widget.ValidationCheckbox("sprycheckbox_disodium", {isRequired:false});
var sprycheckbox6 = new Spry.Widget.ValidationCheckbox("sprycheckbox_lomustine", {isRequired:false});
var sprycheckbox7 = new Spry.Widget.ValidationCheckbox("sprycheckbox_metoject", {isRequired:false});
var sprycheckbox8 = new Spry.Widget.ValidationCheckbox("sprycheckbox_sodiofolin", {isRequired:false});
var sprycheckbox9 = new Spry.Widget.ValidationCheckbox("sprycheckbox_treosulfan", {isRequired:false});
var sprycheckbox10 = new Spry.Widget.ValidationCheckbox("sprycheckbox_5-FU", {isRequired:false});
var sprycheckbox11 = new Spry.Widget.ValidationCheckbox("sprycheckbox_bicalutamide", {isRequired:false});
var sprycheckbox12 = new Spry.Widget.ValidationCheckbox("sprycheckbox_dacarbazine", {isRequired:false});
var sprycheckbox13 = new Spry.Widget.ValidationCheckbox("sprycheckbox_doxorubicin", {isRequired:false});
var sprycheckbox14 = new Spry.Widget.ValidationCheckbox("sprycheckbox_epirubicin", {isRequired:false});
var sprycheckbox15 = new Spry.Widget.ValidationCheckbox("sprycheckbox_etoposide", {isRequired:false});
var sprycheckbox16 = new Spry.Widget.ValidationCheckbox("sprycheckbox_hydro", {isRequired:false});
var sprycheckbox17 = new Spry.Widget.ValidationCheckbox("sprycheckbox_oxaliplatin", {isRequired:false});
var sprycheckbox18 = new Spry.Widget.ValidationCheckbox("sprycheckbox_paclitaxel", {isRequired:false});
var sprycheckbox19 = new Spry.Widget.ValidationCheckbox("sprycheckbox_vinorelbine", {isRequired:false});
var sprytextarea1 = new Spry.Widget.ValidationTextarea("sprytextarea_additional_info", {isRequired:false});
var sprycheckbox20 = new Spry.Widget.ValidationCheckbox("sprycheckbox_pamidronate", {isRequired:false});
var sprycheckbox2 = new Spry.Widget.ValidationCheckbox("sprycheckbox_SPC", {isRequired:false});
var sprycheckbox3 = new Spry.Widget.ValidationCheckbox("spry_safety", {isRequired:false});
var sprycheckbox4 = new Spry.Widget.ValidationCheckbox("sprycheckbox_stability_data", {isRequired:false});
var sprycheckbox22 = new Spry.Widget.ValidationCheckbox("sprycheckbox_SST", {isRequired:false});
var sprycheckbox1 = new Spry.Widget.ValidationCheckbox("sprycheckbox_Gliolan", {isRequired:false});
//-->
</script>
</body>
</html>
<%
rsEmail.Close()
Set rsEmail = Nothing
%>
<%
rsUsers.Close()
Set rsUsers = Nothing
%>
 
BELOW IS THE CODE FOR THE tNG.inc.asp IT REFERECES TO
 
<%
'
' ADOBE SYSTEMS INCORPORATED
' Copyright 2007 Adobe Systems Incorporated
' All Rights Reserved
' 
' NOTICE:  Adobe permits you to use, modify, and distribute this file in accordance with the 
' terms of the Adobe license agreement accompanying it. If you have received this file from a 
' source other than Adobe, then your use, modification, or distribution of it requires the prior 
' written permission of Adobe.
'
 
'
'	Copyright (c) InterAKT Online 2000-2005
'
If Session("KT_SitePath") <> "" Then
	If Instr(1, Request.ServerVariables("URL"), Session("KT_SitePath") & "/", 1) = 0 Then
		Session.Contents.RemoveAll
	End If
End If
 
If isEmpty(KT_CoreFunctions__ALREADYLOADED) Then
	KT_CoreFunctions__ALREADYLOADED = True
	KT_uploadErrorMsg = "<strong>File not found:</strong> <br />###<br /><strong>Please upload the includes/ folder to the testing server.</strong>"
	Sub KT_createGlobalFSO()
		If Not isObject(KT_FSO) Then
			ExecuteGlobal "Set KT_FSO = Server.CreateObject(""Scripting.FileSystemObject"")"	
		End If	
	End Sub
	Function KT_SetPathSessions()
		KT_createGlobalFSO
		' sets 2 sessions: KT_AbsolutePathToRootFolder and KT_SiteURL
		
		' In order to know which one is the root folder, must check for (a) particular folder(s) 
		' that we know for sure that is(are) located in the root folder of the site
		Dim SearchForFolderName: SearchForFolderName = "includes\common" 
 
		Dim url: url = Request.ServerVariables("URL")
		' cut the trailing /
		LastSeparator = InStrRev(url, "/")
		If LastSeparator > 0 Then
			url = left(url, LastSeparator-1)
		End If
 
		Dim path: path = Server.MapPath(".") & "\"
		' cut the trailing \
		LastSeparator = InStrRev(path, "\")
		If LastSeparator > 0 Then
			path = left(path, LastSeparator-1)
		End If
		
		Dim prefix: prefix = ""
		Dim found: found = False
		Do while not Found
			If KT_FSO.FolderExists (path &  "\" & SearchForFolderName) Then
				Found = true
				Exit do
			Else
				' remove one folder lever both from path and url
				LastSeparator = InStrRev(url, "/")
				If LastSeparator > 0 Then
					url = left(url, LastSeparator-1)
				Else
					found = true ' force the exit from loop	
				End If
		
				LastSeparator = InStrRev(path, "\")
				If LastSeparator > 0 Then
					path = left(path, LastSeparator-1)
					prefix = prefix & "..\"
				Else
					found = true ' force the exit from loop	
				End If				 	
			End If						
		Loop
 
		If prefix = "" Then
			prefix = "."
		End If
		If found Then
			Session("KT_SitePath") = url
			Session("KT_AbsolutePathToRootFolder") = KT_FSO.GetAbsolutePathName(Server.MapPath(".") & "\" & prefix) & "\"
		Else
			KT_GetAbsolutePathToRootFolder = ""
		End If	
	End Function
 
	' retrieves the path on disk to the site root (eg C:\www\sites\MYSITE\)
	Function KT_GetAbsolutePathToRootFolder()
		If Session("KT_AbsolutePathToRootFolder") = ""  Then
			KT_SetPathSessions
		End If
		KT_GetAbsolutePathToRootFolder	= Session("KT_AbsolutePathToRootFolder")
	End Function
	
 
	Sub KT_LoadASPFiles (arrPathsRelativeToRoot)
		KT_createGlobalFSO
		absolutePathToRootFolder = KT_GetAbsolutePathToRootFolder()
		
		On Error Resume Next	
		Dim i
		For i=0 to ubound(arrPathsRelativeToRoot)		
			pathRelativeToRootFolder = arrPathsRelativeToRoot(i)
			absolutePathToFile = absolutePathToRootFolder & replace(pathRelativeToRootFolder, "/", "\")
			If KT_FSO.FileExists(absolutePathToFile) Then
				' read the file content
				Dim f: Set f = KT_FSO.OpenTextFile(absolutePathToFile, 1, False)
				content = f.ReadAll
				f.Close
				Set f = nothing
				
				If instr(pathRelativeToRootFolder, "KT_common.asp") <> 0 Then
					content = mid(content, 1, instr(content, "<S" & "CRIPT language=""jscript"" runat=""server")-1)
				End If
				If instr(pathRelativeToRootFolder, "tNG.inc.asp") <> 0 Then
					content = mid(content, 1, instr(content, "<S" & "CRIPT language=""jscript"" runat=""server")-1)
				End If								
				' replace ASP tags 
				execcontent = replace (content, "<" & "%", "")
				execcontent = replace (execcontent, "%" & ">", "")
				ExecuteGlobal(execcontent)
			Else
				Session.Contents.RemoveAll
				Response.write replace(KT_uploadErrorMsg, "###", pathRelativeToRootFolder)
				Response.End()
			End If
			If err.number<>0 Then
				Response.write "<br><span style=""color:red"">Error loading file '" & pathRelativeToRootFolder & "'<br>" & err.description & "</font>"
				Response.End()
			End If
		Next
		On Error GoTo 0
	End Sub
 
End If	
 
	' tNG.inc can overwrite this function if it already exists
	KT_MD5Function__ALREADYLOADED = True
	' map js function on a vb function
	ExecuteGlobal 	"Function KT_md5(str_to_encode) "  & vbNewLine & _
					"	KT_md5 = hex_md5(str_to_encode)"  & vbNewLine & _
					"End Function"
 
	If isEmpty(KT_tNGCore__ALREADYLOADED) Then
		KT_tNGCore__ALREADYLOADED = True
		KT_tNG_uploadFileList = Array( _
	"includes/common/KT_common.asp", _
	"includes/tng/tNG_functions.inc.asp", _
	"includes/tng/tNG_log.class.asp", _
	"includes/tng/tNG_dispatcher.class.asp", _
	"includes/tng/tNG.class.asp", _
	"includes/tng/tNG_fields.class.asp", _
	"includes/tng/tNG_insert.class.asp", _
	"includes/tng/tNG_update.class.asp", _
	"includes/tng/tNG_delete.class.asp", _
	"includes/tng/tNG_multiple.class.asp", _
	"includes/tng/tNG_custom.class.asp", _
	"includes/tng/tNG_error.class.asp", _
	"includes/tng/tNG_login.class.asp", _
	"includes/tng/tNG_import.class.asp", _
	"includes/tng/triggers/tNG_defTrigg.inc.asp", _
	"includes/tng/triggers/tNG_Redirect.class.asp", _
	"includes/tng/triggers/tNG_FormValidation.class.asp", _
	"includes/tng/triggers/tNG_LinkedTrans.class.asp", _
	"includes/tng/triggers/tNG_CheckTableField.class.asp", _
	"includes/tng/triggers/tNG_CheckUnique.class.asp", _
	"includes/tng/triggers/tNG_CheckDetailRecord.class.asp", _
	"includes/tng/triggers/tNG_CheckMasterRecord.class.asp", _
	"includes/tng/triggers/tNG_DeleteDetailRec.class.asp", _
	"includes/tng/triggers/tNG_ThrowError.class.asp", _
	"includes/tng/triggers/tNG_Email.class.asp", _
	"includes/tng/triggers/tNG_EmailRecordset.class.asp", _
	"includes/tng/triggers/tNG_EmailPageSection.class.asp", _
	"includes/tng/triggers/tNG_RestrictAccess.class.asp", _
	"includes/tng/triggers/tNG_Logout.class.asp", _
	"includes/tng/triggers/tNG_UserLoggedIn.class.asp", _
	"includes/tng/triggers/tNG_ManyToMany.class.asp", _
	"includes/tng/triggers/tNG_TidyContent.class.asp", _
	"includes/tng/triggers/tNG_TidyContent.inc.asp", _
	"includes/common/lib/resources/KT_Resources.asp", _
	"includes/common/lib/shell/KT_Shell.asp", _
	"includes/common/lib/file/KT_File.asp", _
	"includes/common/lib/folder/KT_Folder.asp", _
	"includes/common/lib/file_upload/KT_FileUpload.asp", _
	"includes/common/lib/image/KT_Image.asp", _
	"includes/common/lib/email/KT_Email.asp", _
	"includes/common/lib/db/KT_FakeRecordset.asp", _
"includes/tng/tNG_config.inc.asp")
		KT_LoadASPFiles KT_tNG_uploadFileList
	End If
    
    If Not isEmpty(KT_prefered_image_lib) Then
        tNG_prefered_image_lib = KT_prefered_image_lib
        tNG_prefered_imagemagick_path = KT_prefered_imagemagick_path
    End If
%>
<SCRIPT language="jscript" runat="server">
/*
 * A JavaScript implementation of the RSA Data Security, Inc. MD5 Message
 * Digest Algorithm, as defined in RFC 1321.
 * Version 2.1 Copyright (C) Paul Johnston 1999 - 2002.
 * Other contributors: Greg Holt, Andrew Kepert, Ydnar, Lostinet
 * Distributed under the BSD License
 * See http://pajhome.org.uk/crypt/md5 for more info.
 */
 
/*
 * Configurable variables. You may need to tweak these to be compatible with
 * the server-side, but the defaults work in most cases.
 */
var hexcase = 0;  /* hex output format. 0 - lowercase; 1 - uppercase        */
var b64pad  = ""; /* base-64 pad character. "=" for strict RFC compliance   */
var chrsz   = 8;  /* bits per input character. 8 - ASCII; 16 - Unicode      */
 
/*
 * These are the functions you'll usually want to call
 * They take string arguments and return either hex or base-64 encoded strings
 */
function hex_md5(s){ return binl2hex(core_md5(str2binl(s), s.length * chrsz));}
function b64_md5(s){ return binl2b64(core_md5(str2binl(s), s.length * chrsz));}
function str_md5(s){ return binl2str(core_md5(str2binl(s), s.length * chrsz));}
function hex_hmac_md5(key, data) { return binl2hex(core_hmac_md5(key, data)); }
function b64_hmac_md5(key, data) { return binl2b64(core_hmac_md5(key, data)); }
function str_hmac_md5(key, data) { return binl2str(core_hmac_md5(key, data)); }
 
/*
 * Perform a simple self-test to see if the VM is working
 */
function md5_vm_test()
{
  return hex_md5("abc") == "900150983cd24fb0d6963f7d28e17f72";
}
 
/*
 * Calculate the MD5 of an array of little-endian words, and a bit length
 */
function core_md5(x, len)
{
  /* append padding */
  x[len >> 5] |= 0x80 << ((len) % 32);
  x[(((len + 64) >>> 9) << 4) + 14] = len;
 
  var a =  1732584193;
  var b = -271733879;
  var c = -1732584194;
  var d =  271733878;
 
  for(var i = 0; i < x.length; i += 16)
  {
    var olda = a;
    var oldb = b;
    var oldc = c;
    var oldd = d;
 
    a = md5_ff(a, b, c, d, x[i+ 0], 7 , -680876936);
    d = md5_ff(d, a, b, c, x[i+ 1], 12, -389564586);
    c = md5_ff(c, d, a, b, x[i+ 2], 17,  606105819);
    b = md5_ff(b, c, d, a, x[i+ 3], 22, -1044525330);
    a = md5_ff(a, b, c, d, x[i+ 4], 7 , -176418897);
    d = md5_ff(d, a, b, c, x[i+ 5], 12,  1200080426);
    c = md5_ff(c, d, a, b, x[i+ 6], 17, -1473231341);
    b = md5_ff(b, c, d, a, x[i+ 7], 22, -45705983);
    a = md5_ff(a, b, c, d, x[i+ 8], 7 ,  1770035416);
    d = md5_ff(d, a, b, c, x[i+ 9], 12, -1958414417);
    c = md5_ff(c, d, a, b, x[i+10], 17, -42063);
    b = md5_ff(b, c, d, a, x[i+11], 22, -1990404162);
    a = md5_ff(a, b, c, d, x[i+12], 7 ,  1804603682);
    d = md5_ff(d, a, b, c, x[i+13], 12, -40341101);
    c = md5_ff(c, d, a, b, x[i+14], 17, -1502002290);
    b = md5_ff(b, c, d, a, x[i+15], 22,  1236535329);
 
    a = md5_gg(a, b, c, d, x[i+ 1], 5 , -165796510);
    d = md5_gg(d, a, b, c, x[i+ 6], 9 , -1069501632);
    c = md5_gg(c, d, a, b, x[i+11], 14,  643717713);
    b = md5_gg(b, c, d, a, x[i+ 0], 20, -373897302);
    a = md5_gg(a, b, c, d, x[i+ 5], 5 , -701558691);
    d = md5_gg(d, a, b, c, x[i+10], 9 ,  38016083);
    c = md5_gg(c, d, a, b, x[i+15], 14, -660478335);
    b = md5_gg(b, c, d, a, x[i+ 4], 20, -405537848);
    a = md5_gg(a, b, c, d, x[i+ 9], 5 ,  568446438);
    d = md5_gg(d, a, b, c, x[i+14], 9 , -1019803690);
    c = md5_gg(c, d, a, b, x[i+ 3], 14, -187363961);
    b = md5_gg(b, c, d, a, x[i+ 8], 20,  1163531501);
    a = md5_gg(a, b, c, d, x[i+13], 5 , -1444681467);
    d = md5_gg(d, a, b, c, x[i+ 2], 9 , -51403784);
    c = md5_gg(c, d, a, b, x[i+ 7], 14,  1735328473);
    b = md5_gg(b, c, d, a, x[i+12], 20, -1926607734);
 
    a = md5_hh(a, b, c, d, x[i+ 5], 4 , -378558);
    d = md5_hh(d, a, b, c, x[i+ 8], 11, -2022574463);
    c = md5_hh(c, d, a, b, x[i+11], 16,  1839030562);
    b = md5_hh(b, c, d, a, x[i+14], 23, -35309556);
    a = md5_hh(a, b, c, d, x[i+ 1], 4 , -1530992060);
    d = md5_hh(d, a, b, c, x[i+ 4], 11,  1272893353);
    c = md5_hh(c, d, a, b, x[i+ 7], 16, -155497632);
    b = md5_hh(b, c, d, a, x[i+10], 23, -1094730640);
    a = md5_hh(a, b, c, d, x[i+13], 4 ,  681279174);
    d = md5_hh(d, a, b, c, x[i+ 0], 11, -358537222);
    c = md5_hh(c, d, a, b, x[i+ 3], 16, -722521979);
    b = md5_hh(b, c, d, a, x[i+ 6], 23,  76029189);
    a = md5_hh(a, b, c, d, x[i+ 9], 4 , -640364487);
    d = md5_hh(d, a, b, c, x[i+12], 11, -421815835);
    c = md5_hh(c, d, a, b, x[i+15], 16,  530742520);
    b = md5_hh(b, c, d, a, x[i+ 2], 23, -995338651);
 
    a = md5_ii(a, b, c, d, x[i+ 0], 6 , -198630844);
    d = md5_ii(d, a, b, c, x[i+ 7], 10,  1126891415);
    c = md5_ii(c, d, a, b, x[i+14], 15, -1416354905);
    b = md5_ii(b, c, d, a, x[i+ 5], 21, -57434055);
    a = md5_ii(a, b, c, d, x[i+12], 6 ,  1700485571);
    d = md5_ii(d, a, b, c, x[i+ 3], 10, -1894986606);
    c = md5_ii(c, d, a, b, x[i+10], 15, -1051523);
    b = md5_ii(b, c, d, a, x[i+ 1], 21, -2054922799);
    a = md5_ii(a, b, c, d, x[i+ 8], 6 ,  1873313359);
    d = md5_ii(d, a, b, c, x[i+15], 10, -30611744);
    c = md5_ii(c, d, a, b, x[i+ 6], 15, -1560198380);
    b = md5_ii(b, c, d, a, x[i+13], 21,  1309151649);
    a = md5_ii(a, b, c, d, x[i+ 4], 6 , -145523070);
    d = md5_ii(d, a, b, c, x[i+11], 10, -1120210379);
    c = md5_ii(c, d, a, b, x[i+ 2], 15,  718787259);
    b = md5_ii(b, c, d, a, x[i+ 9], 21, -343485551);
 
    a = safe_add(a, olda);
    b = safe_add(b, oldb);
    c = safe_add(c, oldc);
    d = safe_add(d, oldd);
  }
  return Array(a, b, c, d);
 
}
 
/*
 * These functions implement the four basic operations the algorithm uses.
 */
function md5_cmn(q, a, b, x, s, t)
{
  return safe_add(bit_rol(safe_add(safe_add(a, q), safe_add(x, t)), s),b);
}
function md5_ff(a, b, c, d, x, s, t)
{
  return md5_cmn((b & c) | ((~b) & d), a, b, x, s, t);
}
function md5_gg(a, b, c, d, x, s, t)
{
  return md5_cmn((b & d) | (c & (~d)), a, b, x, s, t);
}
function md5_hh(a, b, c, d, x, s, t)
{
  return md5_cmn(b ^ c ^ d, a, b, x, s, t);
}
function md5_ii(a, b, c, d, x, s, t)
{
  return md5_cmn(c ^ (b | (~d)), a, b, x, s, t);
}
 
/*
 * Calculate the HMAC-MD5, of a key and some data
 */
function core_hmac_md5(key, data)
{
  var bkey = str2binl(key);
  if(bkey.length > 16) bkey = core_md5(bkey, key.length * chrsz);
 
  var ipad = Array(16), opad = Array(16);
  for(var i = 0; i < 16; i++)
  {
    ipad[i] = bkey[i] ^ 0x36363636;
    opad[i] = bkey[i] ^ 0x5C5C5C5C;
  }
 
  var hash = core_md5(ipad.concat(str2binl(data)), 512 + data.length * chrsz);
  return core_md5(opad.concat(hash), 512 + 128);
}
 
/*
 * Add integers, wrapping at 2^32. This uses 16-bit operations internally
 * to work around bugs in some JS interpreters.
 */
function safe_add(x, y)
{
  var lsw = (x & 0xFFFF) + (y & 0xFFFF);
  var msw = (x >> 16) + (y >> 16) + (lsw >> 16);
  return (msw << 16) | (lsw & 0xFFFF);
}
 
/*
 * Bitwise rotate a 32-bit number to the left.
 */
function bit_rol(num, cnt)
{
  return (num << cnt) | (num >>> (32 - cnt));
}
 
/*
 * Convert a string to an array of little-endian words
 * If chrsz is ASCII, characters >255 have their hi-byte silently ignored.
 */
function str2binl(str)
{
  var bin = Array();
  var mask = (1 << chrsz) - 1;
  for(var i = 0; i < str.length * chrsz; i += chrsz)
    bin[i>>5] |= (str.charCodeAt(i / chrsz) & mask) << (i%32);
  return bin;
}
 
/*
 * Convert an array of little-endian words to a string
 */
function binl2str(bin)
{
  var str = "";
  var mask = (1 << chrsz) - 1;
  for(var i = 0; i < bin.length * 32; i += chrsz)
    str += String.fromCharCode((bin[i>>5] >>> (i % 32)) & mask);
  return str;
}
 
/*
 * Convert an array of little-endian words to a hex string.
 */
function binl2hex(binarray)
{
  var hex_tab = hexcase ? "0123456789ABCDEF" : "0123456789abcdef";
  var str = ""; 
  for(var i = 0; i < binarray.length * 4; i++)
  {
    str += hex_tab.charAt((binarray[i>>2] >> ((i%4)*8+4)) & 0xF) +
           hex_tab.charAt((binarray[i>>2] >> ((i%4)*8  )) & 0xF);
  }
  return str;
}
 
/*
 * Convert an array of little-endian words to a base-64 string
 */
function binl2b64(binarray)
{
  var tab = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/";
  var str = "";
  for(var i = 0; i < binarray.length * 4; i += 3)
  {
    var triplet = (((binarray[i   >> 2] >> 8 * ( i   %4)) & 0xFF) << 16)
                | (((binarray[i+1 >> 2] >> 8 * ((i+1)%4)) & 0xFF) << 8 )
                |  ((binarray[i+2 >> 2] >> 8 * ((i+2)%4)) & 0xFF);
    for(var j = 0; j < 4; j++)
    {
      if(i * 8 + j * 6 > binarray.length * 32) str += b64pad;
      else str += tab.charAt((triplet >> 6*(3-j)) & 0x3F);
    }
  }
  return str;
}
</SCRIPT>

Select all Open in new window

Question

Developer Toolbox Register Page Login user in after registration

Subscribe now for full access to Experts Exchange and get

Instant Access to this Solution

Developer Tool Box

ASP

Login

register page

Active Server Pages (ASP)

Miscellaneous Web Development

Adobe Dreamweaver

Trusted by hundreds of thousands everyday for fast, accurate and reliable tech support.

See what Experts Exchange can do for you.

Got a question?

We've got the answer.

Need individual assistance?

Our experts are ready to help.

Want to learn from the best?

Read articles from industry experts.

Working on a long term project?

Store your work and research.

What Makes Experts Exchange Unique?

Trusted by the world's most respected brands.

Faithfully serving IT professionals since 1996.

Related Solutions

Free Tech Articles

Cloud Class Webinars

Join the Community

Give a Little. Get a Lot.

Answers

3 Ways to Join

The Experts

The Experts

Testimonials

Testimonials

Testimonials

Business Clients

Business Clients

In the Press

In the Press

In the Press