<%
if request.form("send") <> "" then
SQLserveradr="localhost"
SQLdatabase="x_dk"
SQLlogin="x_dk"
SQLpassword=""
Set DataConn = Server.CreateObject("ADODB.Connection")
conStr = "driver={MySQL ODBC 3.51 Driver};"& _
"server="& SQLserveradr &";"& _
"database="& SQLdatabase &";"& _
"uid="& SQLlogin &";"& _
"pwd="& SQLpassword &";"& _
"OPTION=3"
DataConn.Open conStr
strSQL = "Insert into tilmelding (DateKolonne ,id,efternavn, forfos1, for2, forfos2, adresse, postnr, fby, telefon, email, fornavn, dato, konto, reg,holdnr, pris) values(now(),'" & replace(Request.Form("id"),"'","''") & "','" & replace(Request.Form("efternavn"),"'","''") & "','" & replace(Request.Form("forfos1"),"'","''") & "','" & replace(Request.Form("for2"),"'","''") & "','" & replace(Request.Form("forfos2"),"'","''") & "','" & replace(Request.Form("adresse"),"'","''") & "','" & replace(Request.Form("postnr"),"'","''") & "','" & replace(Request.Form("fby"),"'","''") & "','" & replace(Request.Form("telefon"),"'","''") & "','" & replace(Request.Form("email"),"'","''") & "','" & replace(Request.Form("fornavn"),"'","''") & "','" & replace(Request.Form("dato"),"'","''") & "','" & replace(Request.Form("konto"),"'","''") & "','" & replace(Request.Form("reg"),"'","''") & "','" & holdnummer & "','" & pris & "' )"
DataConn.Execute(strSQL)
'Opdater antal tilmeldte i hold tabellen
'Kode som sender mailen her:
set rs = DataConn.Execute("SELECT @@IDENTITY AS nytID")
if not rs.eof then
nytID = rs("nytID")
else
nytID = 0
end if
rs.close
if nytID > 0 then
if Request.Form("adresse") <> "" then
Dim objCDO
Set objCDO = Server.CreateObject( "CDONTS.NewMail" )
' Her sættes afsender navn og e-mail adresse
' Afsenders mailserver RETTES TIL
objCDO.Host = "mailout.b-one.net"
objCDO.From = "info@xxx.dk"
' Her sættes modtager navn og e-mail adresse
objCDO.To = Request.Form("email")
' Her sættes overskriften på mailen
objCDO.Subject = "360 grader fra ..."
' Her sættes selve teksten til mailen
objCDO.HTMLBody = "<html><body>Kære "& Request.Form("efternavn") &"<br><br>Du kan logge ind med:<br><br>Brugernavn: "& Request.Form("adresse") &"<br>Password: "& Request.Form("postnr") &"<br><br>Klik ind <a href=""
http://www.xxx.dk"">her</a> <br>Har du spørgsmål, er du velkommen til at kontakte os ved at svare på denne mail eller telefon ... <br><br>Med venlig hilsen <br><br> xxx</body></html>"
' Send e-mail og skriv status
objCDO.Send
' Fjern objekt igen
Set objCDO = Nothing
end if
else
' Vis en fejlmeddelese
end if
response.write "<br><br>brugeren er oprettet.<br>"
response.End 'stopper koden her
end if
'Viser formen
%>
<BR>
<B>Opret en bruger</B>
<BR>
<SCRIPT LANGUAGE="JavaScript">
function Check_Form(theForm) {
err = '';
if (theForm.adresse.value == '') {
err += "Adressen mangler\r";
}
if (theForm.postnr.value == '') {
err += "Postnr mangler\r";
}
if (theForm.fby.value == '') {
err += "By mangler\r";
}
if (theForm.telefon.value == '') {
err += "Telefon mangler\r";
}
if (theForm.email.value == '') {
err += "E-mail mangler\r";
} else {
ema = theForm.email.value;
pos1 = ema.indexOf('@',0);
pos2 = ema.indexOf('.',pos1);
str = ema.substring(ema.length-1,ema.length+1);
if (pos1 < 0 || pos2 < 0 || str == '.') {
theForm.email.style.color = '#FFFFFF';
theForm.email.style.backgroundColor = '#FF0000';
err += "E-mail ikke gyldig\r";
}
}
if (err != ''){
alert('Følgende felter mangler at blive udfyldt:\r' + err);
return (false);
} else {
return (true);
}
}
</script>
<%
SQLserveradr="localhost"
SQLdatabase="x_dk"
SQLlogin="x_dk"
SQLpassword="xx"
Set DataConn = Server.CreateObject("ADODB.Connection")
conStr = "driver={MySQL ODBC 3.51 Driver};"& _
"server="& SQLserveradr &";"& _
"database="& SQLdatabase &";"& _
"uid="& SQLlogin &";"& _
"pwd="& SQLpassword &";"& _
"OPTION=3"
DataConn.Open conStr
strSQL = "SELECT navn FROM instruktør order by navn"
' Skaber et recordset udfra SQL strengen
Set rs2 = DataConn.Execute(strSQL)
%>
<BR><B>
<form action="opretbruger.asp" method="post" onsubmit="return Check_Form(this)">
<input type="hidden" name="id" value="<%=Request.Querystring("id")%>">
<TABLE width="500">
<TR>
<TD>For/Efternavn:<FONT SIZE="1" COLOR="#ff00000">*</FONT> </TD>
<TD><input type="text" name="efternavn" size="45" class="Formindhold"></TD>
</TR>
<TR>
<TD>Brugernavn:<FONT SIZE="1" COLOR="#ff00000">*</FONT></TD>
<TD><input type="text" name="adresse" size="45" class="Formindhold"></TD>
</TR>
<TR>
<TD>Password:<FONT SIZE="1" COLOR="#ff00000">*</FONT></TD>
<TD><input type="text" name="postnr" size="45" class="Formindhold"></TD>
</TR>
<TR>
<TD>Email:<FONT SIZE="1" COLOR="#ff00000">*</FONT></TD>
<TD><input type="text" name="email" size="45" class="Formindhold"></TD>
</TR>
<TR>
<TD>Type:<FONT SIZE="1" COLOR="#ff00000">*</FONT></TD>
<TD><select name="fby" class="Formindhold" >
<option value="" selected></option>
<option value="Medarbejder">Medarbejder</option>
<option value="Chef">Chef</option>
<option value="Kollega">Kollega</option>
<option value="Egen">Egen</option>
<option value="Andre">Andre</option></TD>
</TR>
<TR>
<TD>Sag:<FONT SIZE="1" COLOR="#ff00000">*</FONT></TD>
<TD><select name="telefon" class="Formindhold" >
<option value=""></option><%
do while not rs2.EOF
%><option value="<% Response.write rs2("navn")%>"><% Response.write rs2("navn") %></option>
<%
rs2.MoveNext
loop
%></TD>
</TR>
<TR>
<TD></TD>
<TD><input type="submit" value="Opret bruger" name="send" class="knap" >
</form></TD>
</TR>
</TABLE>
