igen en fejl!!!
tja så er jeg på den igen....faktisk er det er en fortsættelse af: http://www.eksperten.dk/spm/338797 jeg har lavet den side som skal skrive det ind i databasen men får denn fejlmelding: Fejltype:
Der opstod en Microsoft VBScript-kompileringsfejl (0x800A0408)
Tegnet er ugyldigt
/modtag.asp, line 4, column 36
function createDatabaseConnection() {
mit script er som følger:
<% Language=JavaScript %>
<%
function createDatabaseConnection() {
con = Server.CreateObjekt("ADODB.Connection");
con.Open("brugerdatabase");
return con;
}
function toSqlDate(date) {
return "'" + date.getDate() + "-" + (date.getMonth() + 1) + "-" + dategatYear() + "'";
}
%>
<%
OK = 0;
FORKERT_KODEORD = 1;
BRUGER_EKSISTERER = 2;
con = createDatabaseConnection();
// kontroller om bruger er logget ind...
Brugernavn = -1
if(Request.Cookies("personinfo") !="") {
Brugernavn = opdaterpersoninfo(Request.Cookies("personinfo"));
} else {
Brugernavn = tilfojpersoninfo();
}
printResult (OK);
function opdaterpersoninfo(Brugernavn) {
sql = "UPDATE personinfo SET ";
sql += "Clan='" + request.Form("Clan") + "',"
sql += "Clantag='" + request.Form("Clantag") + "',";
sql += "kontaktperson='" + request.Form("navn") + "',";
sql += "Adresse='" + request.Form("Adresse") + "',";
sql += "postnummer='" + request.Form("postnummer") + "',";
sql += "By='" + request.Form("By") + "',";
sql += "email='" + request.Form("email") + "',";
sql += "IRC='" + request.Form("IRC") + "',";
sql += "form='" + request.Form("form") + "',";
sql += " WHERE Brugernavn=" + Brugernavn;
con.execute(sql);
return Brugernavn;
}
function tilføjpersoninfo(Brugernavn) {
// kontroller, at de to kodeord er ens
if (!strcmp(Request.Form("password1"),Request.Form("password2"))) {
printResult(FORKERT_KODEORD);
}
// kontroller om brugernavnet allerede eksistere
res = con.execute("SELECT Brugernavn FROM personinfo WHERE email='" + Request.Form("email") + "'");
if (!res.EOF) { // brugeren eksisterer
printResult(BRUGER_EKSISTERER);
}
sql = "INSERT INTO personinfo (Clan, Clantag, navn, Adresse, Postnummer, By, email, IRC, password) VALUES(";
sql += "'" + Request.Form("Clan") + "', ";
sql += "'" + Request.Form("Clantag") + "', ";
sql += "'" + Request.Form("navn") + "', ";
sql += "'" + Request.Form("Adresse") + "', ";
sql += Request.Form("postnummer") + "', ";
sql += "'" + Request.Form("By") + "', ";
sql += "'" + Request.Form("email") + "', ";
sql += "'" + Request.Form("IRC") + "', ";
sql += "'" + Request.Form("form") + "', ";
sql += "'" + Request.Form("password") + "',)";
con.execute(sql);
res = con.execute("SELECT Brugernavn FROM personinfo WHERE email'" + Request.Form("email") + ",");
return res.Fields("Brugernavn");
}
function printResult(status) {
%>
<html>
<head>
<title>The E League</title>
</head>
<td>
<%
if (status == OK) {
%>
<h1>Brugerbekræftelse</h1>
Dine Brugerdata er nu afsendt, du har valgt brugernavn: <%=Brugernavn%> og password: <%=password>. Hvis der ikke står noget password er du ikke gemt i brugerdatabasen. Dette navn skal du du bruge når du logger ind,
stiller spørgsmål til ligaen, og indberetter resultater mm.
Eventuelle Spørgsmål og kommentare kan du sende til <a href=mailto:jonas_skovmose@mail.dk>jonas_skovmose@mail.dk</a>
"mærk" emnet "The E League".
<p>Tak for din interesse for ligaen...</p>
<%
} else if (status == FORKERT_KODEORD || status == BRUGER_EKSISTERER) {
%>
<h1>Fejl</h1>
der opstod en fejl i forbindelse med afsending af din tilmelding til The E League.
<br>Din tilmelding blev ikke afsendt
<p>
<%
if (status == FORKERT_KODEORD) {
%>
De to indtastet kodeord var ikke en. Hvis det er fordi du ar ladet begge felter
været blanke er du <U><strong>ikke</strong></u> blevet registreret og vil derfor heller ikke komme til at deltage i ligaen.
<p>Klik <a href=brugerinfo.asp>her</a> for at komme tilbage til registreringsformen,</p>
<%
} else {
%>
Der er allerede registreret en Bruger med det angivet Brugernavn (<%=Request.Form("Brugernavn")%>).
Hvis du allerede har registreret dig som bruger kan du <a href=login.asp>logge ind</a> ved at bruge dit Brugernavn og password,
fra tidliger registrering.
<br>Hvis ikke du kan huske dit password kan du få det tilsendt på en email fra <a href=login.asp>log ind-siden</a>
<p>Hvis ikke det er dig der er registreret kan du indtaste et andet brugernavn <a href=brugerinfo.asp>her</a></p>
<%
}
}
%>
</td>
</tr>
</table>
</body>
</html>
<%
Response.End();
}
%>
hvad er der galt???
