<script language="JavaScript">
<!--
function MM_findObj(n, d) { //v3.0
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[i][n];
for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document); return x;
}
function MM_validateForm() { //v3.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[i]);
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+' skal være en gyldig email-adresse.\n';
} else if (test!='R') { num = parseFloat(val);
if (val!=''+num) errors+='- '+nm+' skal være et tal.\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+' skal være et tal mellem '+min+' og '+max+'.\n';
} } } else if (test.charAt(0) == 'R') errors += '- '+nm+' skal udfyldes.\n'; }
} if (errors) alert('Følgende fejl opstod:\n'+errors);
document.MM_returnValue = (errors == '');
}
function Confirm() {
if (!confirm("Er du sikker på at du vil tilmelde dig dette arrangement?"))
{
return false;
}
}
//-->
</script>
"<form action=tilmeld.asp method=post onSubmit=""return Confirm(); MM_validateForm('Medlemsnummer','','RinRange10000:99999','Navn','','R','Firma','','R','Aktivitet','','R','Adresse','','R','Postnummer/By','','R','Email','','NisEmail','Telefonnummer','','RisNum');return document.MM_returnValue"">" & _
if oRS("broadcast") = "True" then
tekst = tekst & "<p class=mellem>Tilmelding til: <br>" & oRS("aktivitet") & "</p>" & _
vbCrLf & "<form action=tilmeld.asp method=post onSubmit=""return Confirm(); MM_validateForm('Medlemsnummer','','RinRange10000:99999','Navn','','R','Firma','','R','Aktivitet','','R','Adresse','','R','Postnummer/By','','R','Email','','NisEmail','Telefonnummer','','RisNum');return document.MM_returnValue"">" & _
"<input name=Type type=hidden value=""Aktivitet"">" & _
"<input name=Type2 type=hidden value=""" & oRS("aktivitet") & """>" & _
"<input name=Aktivitet type=hidden value=""" & oRS("aktivitet") & """>" & _
"<input name=mødedato type=hidden value=""" & oRS("datofra") & """>"
if session("user_id") = "" Then
tekst = tekst &_
"<P>Medlemsnummer<br><input name=Medlemsnummer type=text><br>" & _
"Navn<br><input name=Navn type=text><br>" & _
"Firma<br><input name=Firma type=text><br>" & _
"Adresse<br><input name=Adresse type=text><br>" & _
"Postnummer/By<br><input name=Postnummer/By type=text><br>" & _
"Email<br><input name=Email type=text><br>"&_
"Telefonnummer<br><input name=Telefonnummer type=text ><br></p>"
else
Set Conn = Server.CreateObject("ADODB.connection")
Conn.ConnectionString = Application("db")
Conn.Open
set rs = Server.CreateObject("ADODB.recordset")
rs.Open "Select * From medlemmer Where medlemsnr = "&session("user_id")&" ", conn
tekst = tekst &_
"<P>Medlemsnummer<br><input name=Medlemsnummer type=text value="""& rs.fields.item("medlemsnr").value& """><br>" & _
"Navn<br><input name=Navn type=text value="""& rs.fields.item("fornavn").value & " " & rs.fields.item("efternavn").value& """><br>" & _
"Firma<br><input name=Firma type=text value="""& rs.fields.item("Firma").value& """><br>" & _
"Adresse<br><input name=Adresse type=text value="""& rs.fields.item("Adresse").value&" "&rs.fields.item("Adresse2").value& """><br>" & _
"Postnummer/By<br><input name=Postnummer/By type=text value="""& rs.fields.item("vby").value& """><br>" & _
"Email<br><input name=Email type=text value="""& rs.fields.item("email").value& """><br>"&_
"Telefonnummer<br><input name=Telefonnummer type=text value="""& rs.fields.item("telefon").value& """><br></p>"
rs.close
Conn.close
end if
tekst = tekst & CH1
tekst = tekst & CH2
tekst = tekst & CH3
tekst = tekst & CH4
tekst = tekst & CH5
tekst = tekst & CH6
tekst = tekst & CH7
tekst = tekst & CH8
tekst = tekst & CH9
tekst = tekst & CH10 & _
"<br><input value=""Send tilmelding"" type=submit></form>"
else
tekst = tekst & ("<span class=sti>Arrangementet er ikke klar for tilmelding!</span>")
end if
end if
