Details1.asp
********************************************************
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include file="Connections/BPHF.asp" -->
<%
fromName="Bphf.com"
fromAddress="info@bphf.com"
toName="jeremy"
toAddress=Request.Form("email"

subject="BPHF Membership"
relay="192.168.1.7"
%>
<%
' *** Restrict Access To Page: Grant or deny access to this page
MM_authorizedUsers=""
MM_authFailedURL="fail.asp"
MM_grantAccess=false
If Session("MM_Username"

<> "" Then
If (true Or CStr(Session("MM_UserAuthorization"

)=""

Or _
(InStr(1,MM_authorizedUsers,Session("MM_UserAuthorization"

)>=1) Then
MM_grantAccess = true
End If
End If
If Not MM_grantAccess Then
MM_qsChar = "?"
If (InStr(1,MM_authFailedURL,"?"

>= 1) Then MM_qsChar = "&"
MM_referrer = Request.ServerVariables("URL"

if (Len(Request.QueryString()) > 0) Then MM_referrer = MM_referrer & "?" & Request.QueryString()
MM_authFailedURL = MM_authFailedURL & MM_qsChar & "accessdenied=" & Server.URLEncode(MM_referrer)
Response.Redirect(MM_authFailedURL)
End If
%>
<%
Dim Recordset1
Dim Recordset1_numRows
Set Recordset1 = Server.CreateObject("ADODB.Recordset"

Recordset1.ActiveConnection = MM_BPHF_STRING
Recordset1.Source = "SELECT * FROM BPHF"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 1
Recordset1.Open()
Recordset1_numRows = 0
%>
<%
Dim session1__MMColParam
session1__MMColParam = "1"
If (Session("MM_Username"

<> ""

Then
session1__MMColParam = Session("MM_Username"

End If
%>
<%
Dim session1
Dim session1_numRows
Set session1 = Server.CreateObject("ADODB.Recordset"

session1.ActiveConnection = MM_BPHF_STRING
session1.Source = "SELECT * FROM BPHF WHERE firstname = '" + Replace(session1__MMColParam, "'", "''"

+ "'"
session1.CursorType = 0
session1.CursorLocation = 2
session1.LockType = 1
session1.Open()
session1_numRows = 0
%>
<html>
<head>
<!-- TemplateBeginEditable name="doctitle" -->
<title>Busy People Having Fun</title>
<!-- TemplateEndEditable -->
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<script language="JavaScript">
<!--
<!--
function MM_reloadPage(init) { //reloads the window if Nav4 resized
if (init==true) with (navigator) {if ((appName=="Netscape"

&&(parseInt(appVersion)==4)) {
document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }}
else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload();
}
MM_reloadPage(true);
// -->
function MM_preloadImages() { //v3.0
var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();
var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; i++)
if (a
.indexOf("#"
!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a;}}
}
function MM_swapImgRestore() { //v3.0
var i,x,a=document.MM_sr; for(i=0;a&&i<a.length&&(x=a)&&x.oSrc;i++) x.src=x.oSrc;
}
function MM_findObj(n, d) { //v4.01
var p,i,x; if(!d) d=document; if((p=n.indexOf("?"
)>0&&parent.frames.length) {
d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[n];
for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers.document);
if(!x && d.getElementById) x=d.getElementById
; return x;
}
function MM_swapImage() { //v3.0
var i,j=0,x,a=MM_swapImage.arguments; document.MM_sr=new Array; for(i=0;i<(a.length-2);i+=3)
if ((x=MM_findObj(a))!=null){document.MM_sr[j++]=x; if(!x.oSrc) x.oSrc=x.src; x.src=a[i+2];}
}
function MM_validateForm() { //v4.0
var i,p,q,nm,test,num,min,max,errors='',args=MM_validateForm.arguments;
for (i=0; i<(args.length-2); i+=3) { test=args[i+2]; val=MM_findObj(args);
if (val) { nm=val.name; if ((val=val.value)!=""
{
if (test.indexOf('isEmail')!=-1) { p=val.indexOf('@');
if (p<1 || p==(val.length-1)) errors+='- '+nm+' must contain an e-mail address.\n';
} else if (test!='R') { num = parseFloat(val);
if (isNaN(val)) errors+='- '+nm+' must contain a number.\n';
if (test.indexOf('inRange') != -1) { p=test.indexOf(':');
min=test.substring(8,p); max=test.substring(p+1);
if (num<min || max<num) errors+='- '+nm+' must contain a number between '+min+' and '+max+'.\n';
} } } else if (test.charAt(0) == 'R') errors += '- '+nm+' is required.\n'; }
} if (errors) alert('The following error(s) occurred:\n'+errors);
document.MM_returnValue = (errors == '');
}
function YY_checkform() { //v4.65
//copyright (c)1998,2002 Yaromat.com
var args = YY_checkform.arguments; var myDot=true; var myV=''; var myErr='';var addErr=false;var myReq;
for (var i=1; i<args.length;i=i+4){
if (args[i+1].charAt(0)=='#'){myReq=true; args[i+1]=args[i+1].substring(1);}else{myReq=false}
var myObj = MM_findObj(args.replace(/\[\d+\]/ig,""
);
myV=myObj.value;
if (myObj.type=='text'||myObj.type=='password'||myObj.type=='hidden'){
if (myReq&&myObj.value.length==0){addErr=true}
if ((myV.length>0)&&(args[i+2]==1)){ //fromto
var myMa=args[i+1].split('_');if(isNaN(parseInt(myV))||myV<myMa[0]/1||myV > myMa[1]/1){addErr=true}
} else if ((myV.length>0)&&(args[i+2]==2)){
var rx=new RegExp("^[\\w\.=-]+@[\\w\\.-]+\\.[a-z]{2,4}$"
;if(!rx.test(myV))addErr=true;
} else if ((myV.length>0)&&(args[i+2]==3)){ // date
var myMa=args[i+1].split("#"
; var myAt=myV.match(myMa[0]);
if(myAt){
var myD=(myAt[myMa[1]])?myAt[myMa[1]]:1; var myM=myAt[myMa[2]]-1; var myY=myAt[myMa[3]];
var myDate=new Date(myY,myM,myD);
if(myDate.getFullYear()!=myY||myDate.getDate()!=myD||myDate.getMonth()!=myM){addErr=true};
}else{addErr=true}
} else if ((myV.length>0)&&(args[i+2]==4)){ // time
var myMa=args[i+1].split("#"
; var myAt=myV.match(myMa[0]);if(!myAt){addErr=true}
} else if (myV.length>0&&args[i+2]==5){ // check this 2
var myObj1 = MM_findObj(args[i+1].replace(/\[\d+\]/ig,""
);
if(myObj1.length)myObj1=myObj1[args[i+1].replace(/(.*\[)|(\].*)/ig,""
];
if(!myObj1.checked){addErr=true}
} else if (myV.length>0&&args[i+2]==6){ // the same
var myObj1 = MM_findObj(args[i+1]);
if(myV!=myObj1.value){addErr=true}
}
} else
if (!myObj.type&&myObj.length>0&&myObj[0].type=='radio'){
var myTest = args.match(/(.*)\[(\d+)\].*/i);
var myObj1=(myObj.length>1)?myObj[myTest[2]]:myObj;
if (args[i+2]==1&&myObj1&&myObj1.checked&&MM_findObj(args[i+1]).value.length/1==0){addErr=true}
if (args[i+2]==2){
var myDot=false;
for(var j=0;j<myObj.length;j++){myDot=myDot||myObj[j].checked}
if(!myDot){myErr+='* ' +args[i+3]+'\n'}
}
} else if (myObj.type=='checkbox'){
if(args[i+2]==1&&myObj.checked==false){addErr=true}
if(args[i+2]==2&&myObj.checked&&MM_findObj(args[i+1]).value.length/1==0){addErr=true}
} else if (myObj.type=='select-one'||myObj.type=='select-multiple'){
if(args[i+2]==1&&myObj.selectedIndex/1==0){addErr=true}
}else if (myObj.type=='textarea'){
if(myV.length<args[i+1]){addErr=true}
}
if (addErr){myErr+='* '+args[i+3]+'\n'; addErr=false}
}
if (myErr!=''){alert('The required information is incomplete or contains errors:\t\t\t\t\t\n\n'+myErr)}
document.MM_returnValue = (myErr=='');
}
function AddToFaves_hp(){
var is_4up = parseInt(navigator.appVersion);
var is_mac = navigator.userAgent.toLowerCase().indexOf("mac"
!=-1;
var is_ie = navigator.userAgent.toLowerCase().indexOf("msie"
!=-1;
var thePage = location.href;
if (thePage.lastIndexOf('#')!=-1)
thePage = thePage.substring(0,thePage.lastIndexOf('#'));
if (is_ie && is_4up && !is_mac)
window.external.AddFavorite(thePage,document.title);
else if (is_ie || document.images)
booker_hp = window.open(thePage,'booker_','menubar,width=325,height=100,left=140,top=60');
//booker_hp.focus();
}
//-->
</script>
<link rel="stylesheet" href="sheet1" type="text/css">
<!-- TemplateBeginEditable name="head" --><!-- TemplateEndEditable --> <!-- TemplateParam name="width" type="text" value="100%" -->
<link href="sheet1" rel="stylesheet" type="text/css">
<link href="sheet1" rel="stylesheet" type="text/css">
</head>
<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" onLoad="MM_preloadImages('gfx/paboutd.gif','gfx/peventd.gif','gfx/pchatd.gif','gfx/pcontd.gif')">
<table width="777" border="0" cellpadding="0" cellspacing="0" class="topbuttons">
<!--DWLayoutTable-->
<tr>
<td height="43" colspan="2" valign="top"><!--DWLayoutEmptyCell--> </td>
</tr>
<tr align="right">
<td height="17" colspan="2" valign="top"><a href="default.asp" class="topbuttons">Home</a>
<font color="#D60270" size="1">|</font> <a href="Login.asp" class="topbuttons">Login</a>
<font color="#D60270" size="1">|</font> <a href="#" class="topbuttons" onClick="AddToFaves_hp()">Bookmark
Us</a> <font color="#D60270" size="1">|</font> <a href="mailto:?Subject=Check%20this%20cool%20site&CC=&BCC=&Body=Do%20you%20fancy%20going%20to%20one%20of%20the%20events?%20 class="topbuttons">Tell
a Friend</a> <font color="#D60270" size="1">|</font> <a href="join.asp" class="topbuttons">Join
Up!</a></td>
</tr>
<tr align="right">
<td height="445" colspan="2" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0">
<!--DWLayoutTable-->
<tr>
<td width="360" rowspan="3" valign="top"><p><font color="#FF0000">
<span class="toptext"> Welcome:</span></font> <span class="toptext"><%=(session1.Fields.Item("firstname"
.Value)%></span> </p>
<p class="BPHF">Please Check your details are correct.</p>
<form action="form_response.asp" method="post" name="form1" onSubmit="YY_checkform('form1','firstname','#q','0','Field \'firstname\' is not valid.','sirname','#q','0','Field \'sirname\' is not valid.','email','S','2','Field \'email\' is not valid.','Password','#q','0','Field \'Password\' is not valid.','Password2','#Password','6','Field \'Password2\' is not valid.');return document.MM_returnValue">
<input type="hidden" name="feedback" value=":: Welcome to Busy People Having Fun ::">
<input type="hidden" name="mail-subject" value="<%=subject%>">
<input type="hidden" name="mail-relay" value="<%=relay%>">
<input type="hidden" name="mail-toaddress" value="<%=toAddress%>">
<input type="hidden" name="mail-to" value="<%=toName%>">
<input type="hidden" name="mail-fromAddress" value="<%=fromAddress%>">
<input type="hidden" name="mail-from" value="<%=fromName%>">
<input name="firstname" type="hidden" id="firstname" value="<%=(session1.Fields.Item("firstname"
.Value)%>">
<input name="email" type="hidden" id="email" value="<%=(session1.Fields.Item("email"
.Value)%>">
<table align="center">
<!--DWLayoutTable-->
<tr valign="baseline">
<td width="122" height="16" align="right" nowrap class="BPHF">*Title:</td>
<td class="detailtxt"><%=(session1.Fields.Item("title"
.Value)%> </td>
<td width="15"></td>
</tr>
<tr valign="baseline">
<td height="16" align="right" nowrap class="BPHF">*Firstname:</td>
<td class="detailtxt"><%=(session1.Fields.Item("firstname"
.Value)%> </td>
<td></td>
</tr>
<tr valign="baseline">
<td height="16" align="right" nowrap class="BPHF">*Surname:</td>
<td class="detailtxt"><%=(session1.Fields.Item("sirname"
.Value)%> </td>
<td></td>
</tr>
<tr valign="baseline">
<td height="16" align="right" nowrap class="BPHF">*Email:</td>
<td class="detailtxt"><%=(session1.Fields.Item("email"
.Value)%> </td>
<td></td>
</tr>
<tr valign="baseline">
<td height="16" align="right" nowrap class="BPHF"> Company:</td>
<td class="detailtxt"><%=(session1.Fields.Item("company"
.Value)%> </td>
<td></td>
</tr>
<tr valign="baseline">
<td height="16" align="right" nowrap class="BPHF"> Position:</td>
<td class="detailtxt"><%=(session1.Fields.Item("position"
.Value)%> </td>
<td></td>
</tr>
<tr valign="baseline">
<td height="16" align="right" nowrap class="BPHF"> Address:</td>
<td class="detailtxt"><%=(session1.Fields.Item("address1"
.Value)%> </td>
<td></td>
</tr>
<tr valign="baseline">
<td height="16" align="right" nowrap class="BPHF"> Town:</td>
<td class="detailtxt"><%=(session1.Fields.Item("address2"
.Value)%> </td>
<td></td>
</tr>
<tr valign="baseline">
<td height="16" align="right" nowrap class="BPHF"> Region:</td>
<td class="detailtxt"><%=(session1.Fields.Item("address3"
.Value)%> </td>
<td></td>
</tr>
<tr valign="baseline">
<td height="16" align="right" nowrap class="BPHF"> Postcode:</td>
<td class="detailtxt"><%=(session1.Fields.Item("postcode"
.Value)%> </td>
<td></td>
</tr>
<tr valign="baseline">
<td height="16" align="right" nowrap class="BPHF">*Password:</td>
<td class="detailtxt"><%=(session1.Fields.Item("Password"
.Value)%> </td>
<td></td>
</tr>
<tr valign="baseline">
<td height="16" align="right" nowrap class="BPHF">*Repeat Password:</td>
<td class="detailtxt"><%=(session1.Fields.Item("Password"
.Value)%> </td>
<td></td>
</tr>
<tr valign="baseline">
<td height="16" align="right" nowrap class="BPHF"> Telephone:</td>
<td class="detailtxt"><%=(session1.Fields.Item("telephone"
.Value)%> </td>
<td></td>
</tr>
<tr valign="baseline">
<td height="16" align="right" nowrap class="BPHF"> Newsletter:</td>
<td class="detailtxt"> <p class="maintxt"><%=(session1.Fields.Item("Newsletter"
.Value)%></p></td>
<td></td>
</tr>
<tr valign="baseline">
<td height="20" valign="top" class="BPHF"><a href="form_response.asp">
<input type="submit" name="Submit" value="Submit">
<br>
Accept</a></td>
<td> <p class="BPHF"><a href="edit.asp"><br>
Edit</a></p></td>
<td></td>
</tr>
</table>
</form></td>
<td width="12" rowspan="2" align="center" valign="middle"><img src="gfx/pvertl.gif" width="1" height="218"></td>
<td width="30" rowspan="3" valign="top"><!--DWLayoutEmptyCell--> </td>
<td height="129" colspan="2" align="center" valign="middle"><img src="gfx/pleasecheck.gif" width="199" height="81"></td>
<td width="4"></td>
<td width="1"></td>
</tr>
<tr>
<td width="29" rowspan="2" valign="top"><!--DWLayoutEmptyCell--> </td>
<td colspan="2" rowspan="2" align="center" valign="middle"><img src="gfx/logo.gif" width="460" height="43"><img src="gfx/camplady.gif" width="73" height="229"></td>
<td height="177"> </td>
</tr>
<tr>
<td height="139" valign="top"><!--DWLayoutEmptyCell--> </td>
<td></td>
</tr>
<tr>
<td height="0"></td>
<td></td>
<td></td>
<td></td>
<td></td>
<td></td>
<td></td>
</tr>
<tr>
<td height="1"></td>
<td></td>
<td></td>
<td></td>
<td width="344"></td>
<td></td>
<td></td>
</tr>
</table></td>
</tr>
<tr align="right">
<td height="25" colspan="2" valign="top"> <table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="#E1396A">
<!--DWLayoutTable-->
<tr>
<td width="31" height="5"></td>
<td width="124"></td>
<td width="77"></td>
<td width="124"></td>
<td width="73"></td>
<td width="124"></td>
<td width="64"></td>
<td width="124"></td>
<td width="36"></td>
</tr>
<tr>
<td height="1"></td>
<td></td>
<td></td>
<td rowspan="2" valign="top" align="center"><a href="events.asp" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('pinkevents','','gfx/peventd.gif',1)"><img src="gfx/peventu.GIF" alt="Events" name="pinkevents" width="73" height="14" border="0"></a></td>
<td></td>
<td rowspan="2" valign="top" align="center"><a href="Chat.asp" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('chat','','gfx/pchatd.gif',1)"><img src="gfx/pchatu.gif" alt="Chat" name="chat" width="56" height="14" border="0"></a></td>
<td></td>
<td rowspan="2" valign="top" align="center"><a href="contact.asp" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('pinkcontact','','gfx/pcontd.gif',1)"><img src="gfx/pcontu.gif" alt="Contact Us" name="pinkcontact" width="124" height="14" border="0"></a></td>
<td></td>
</tr>
<tr>
<td height="14"></td>
<td valign="top" align="center"><a href="aboutus.asp" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('pinkabout','','gfx/paboutd.gif',1)"><img src="gfx/paboutu.GIF" alt="About Us" name="pinkabout" width="100" height="14" border="0"></a></td>
<td></td>
<td></td>
<td></td>
<td></td>
</tr>
<tr>
<td height="5"></td>
<td></td>
<td></td>
<td></td>
<td></td>
<td></td>
<td></td>
<td></td>
<td></td>
</tr>
</table></td>
</tr>
<tr align="right">
<td height="37" colspan="2" valign="top"> <table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="#4DB5D8">
<!--DWLayoutTable-->
<tr>
<td width="777" height="37"></td>
</tr>
</table></td>
</tr>
<tr align="right">
<td width="535" height="24"></td>
<td width="242" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0">
<!--DWLayoutTable-->
<tr>
<td width="242" height="24" valign="top" class="footertxt">© 1999
- 2002 BPHF. <a href="#"><font color="#D60270">Terms & Conditions</font></a>.<br>
Please send comments to the <a href="Mailto:jeremy@e-lever.com"><font color="#D60270">Webmaster</font></a>.</td>
</tr>
</table></td>
</tr>
</table>
</body>
</html>
<%
Recordset1.Close()
Set Recordset1 = Nothing
%>
<%
session1.Close()
Set session1 = Nothing
%>
*************************************
FORM_RESPONSE
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body bgcolor="#FFFFFF" text="#000000">
<%
my_from=request("mail-fromName"
my_fromAddress=request("mail-fromaddress"
my_to=request("mail-toName"
my_toAddress=request("mail-toaddress"
my_subject=request("mail-subject"
my_relay=request("mail-relay"
Set Mailer = Server.CreateObject("SMTPsvg.Mailer"
Mailer.RemoteHost = my_relay
Mailer.FromName = my_from
Mailer.FromAddress = my_fromAddress
Mailer.AddRecipient my_to, my_toaddress
Mailer.Subject = my_subject
sBodyText = "Welcome to Busy People Having Fun" & vbcrlf & vbcrlf
sBodyText = sBodyText & "Hello " & request.form("firstname"
& vbCrLf
sBodyText = sBodyText & "Last Name: " & request.form("sirname"
& vbCrLf
sBodyText = sBodyText & "Company: " & request.form("company"
& vbCrLf
sBodyText = sBodyText & "Email Address: " & request.form("email"
& vbCrLf & Chr(13) & Chr(10) & Chr(13) & Chr(10)
sBodyText = sBodyText & "" & request.form("password"
& vbCrLf
sBodyText = sBodyText & "" & request.form("telephone"
& vbCrLf
Mailer.BodyText = sBodyText
If Mailer.SendMail then
Msg = "Thank you for your enquiry.<br> A member of staff will contact you shortly."
Else
Msg = "mail was not sent successfully<br>"
msg = msg & mailer.response & "<br>"
End If
response.write Msg
%>
</body>
</html>