Felmeddelande...

Det beror på att du försöker jämföra två variabler som inte är av samma datatyp.

a="hej"
b=5

if a=b then.....

Kan någon hitta felet här jag kan iallagfall inte hitta det...

<%If Request.Querystring("laggtill") = "medlemny" Then

spaNamn = Request.Form("namn")
spaEmail = Request.Form("email")
spaFD = Request.Form("fodelsedag")
spaStatus = Request.Form("status")
spaRoll = Request.Form("roll")
spaFB = Request.Form("favoritbana")
spaICQ = Request.Form("icq")
spaRnamn = Request.Form("rnamn")

SQL = "Insert Into members"
SQL = SQL & "(Namn,Email,Fodelsedag,Status,Roll,Favoritbana,ICQ,Rnamn) "
SQL = SQL & "VALUES ('"& spaNamn &"', '"& spaEmail &"', '"& spaFD &"', '"& spaStatus &"', '"& spaRoll &"', '"& spaFB &"', '"& spaICQ &"', '"& spaRnamn &"')"
Connect.Execute(SQL)

Connect.Close
Set Connect = Nothing

Response.Redirect "members_admin.asp?update=meny"

End If%>

Vilken rad får du fel på och hur lyder hela felmeddelandet?

ett tips är att använda sökfunktionen och söka på exempelvis typblandningsfel. jag kan lova att du får träff.

Går det i PWS?
Hur gör jag då?
Sedan undrar jag går det att gör så att man slipper skriva http://localhost på PWS:en
till tyo http://micke

du borde kunna använda datorns namn istället för localhost. sedan kan man (iaf om man har nt eller w2k, jag vet faktiskt inte hur det är med w98), lägga till mappningar av den typen i en fil som heter HOSTS. har man en sådan fil så står det i den hur man gör.

mvh,

Detta är felet:
Microsoft JET Database Engine fel '80040e07'

Typblandningsfel i villkorsuttryck.

/asp/ns/members/members_admin.asp, rad 120

Denna rad är:
Connect.Execute(SQL)

Hela koden är:
<%
If Session("inloggad") <> True Then
Response.Redirect("nyhet_login.asp")
End If
%>
<% Response.Buffer = True%>
<html>
<head>
<title>NorthSoldiers - CounterStrike Clan</title>
</head>
<body bgcolor="#000000" text="#FFFFFF" link="#C0C0C0" vlink="#C0C0C0" alink="#C0C0C0">
<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source ="& Server.MapPath("memberdb.mdb")

SQL = "SELECT * From members ORDER BY ID"
Set RecSet = Connect.Execute(SQL)
%>
<%If Request.Querystring("update") = "meny" Then%>

Meny:<p>
<a href="members_admin.asp?install=andra">Inställningar</a><br>
<a href="members_admin.asp?laggtill=medlem">Lägg Till Ny Medlem</a><br>

<%End If%>

<%If Request.Querystring("laggtill") = "medlem" Then%>
<form method="POST" action="members_admin.asp?laggtill=medlemny">
<table border="0" width="50%" height="85">
<tr>
<td width="50%" height="1" align="right">Namn:</td>
<td width="50%" height="1"><input type="text" name="namn" size="20"></td>
</tr>
<tr>
<td width="50%" height="1" align="right">Riktigt Namn:</td>
<td width="50%" height="1"><input type="text" name="rnamn" size="20"></td>
</tr>
<tr>
<td width="50%" height="23" align="right">E-mail</td>
<td width="50%" height="23"><input type="text" name="email" size="20"></td>
</tr>
<tr>
<td width="50%" height="23" align="right">Födelsedag</td>
<td width="50%" height="23"><input type="text" name="fd" size="20"></td>
</tr>
<tr>
<td width="50%" height="23" align="right">Favorit Karta</td>
<td width="50%" height="23"><input type="text" name="fk" size="20"></td>
</tr>
<tr>
<td width="50%" height="22" align="right">Roll</td>
<td width="50%" height="22"><input type="text" name="roll" size="20"></td>
</tr>
<tr>
<td width="50%" height="19" align="right">Status</td>
<td width="50%" height="19"><input type="text" name="status" size="20"></td>
</tr>
<tr>
<td width="50%" height="19" align="right">ICQ</td>
<td width="50%" height="19"><input type="text" name="icq" size="20"></td>
</tr>
</table>
<table border="0" width="50%" height="39">
<tr>
<td width="50%" height="1">
<p align="right"><input type="submit" value="Skicka" name="skicka"></td>
<td width="50%" height="1"><input type="reset" value="Återställ" name="tom"></td>
</tr>
</table>
</form>
<a href="members_admin.asp?update=meny">Tillbaka Till Menyn</a>
<%End If%>

<%If Request.Querystring("install") = "andra" Then%>
<%
SQL = "SELECT * FROM anvandare"
Set RecSet = Connect.Execute(SQL)

ID = RecSet("ID")
anvandarnamn = RecSet("anvandarnamn")
losenord = RecSet("losenord")
%>
<form method="POST" action="members_admin.asp?installID=<% =ID%>">
<table border="0" width="50%">
<tr>
<td width="50%" align="right">Användarnamn</td>
<td width="50%"><input type="text" name="anvandarnamn" size="20" value="<% =anvandarnamn%>"></td>
</tr>
<tr>
<td width="50%" align="right">Lösenord</td>
<td width="50%"><input type="password" name="losenord" size="20" value="<% =losenord%>"></td>
</tr>
</table>
<table border="0" width="50%">
<tr>
<td width="50%">
<p align="right"><input type="submit" value="Skicka" name="B1"></td>
<td width="50%"><input type="reset" value="Återställ" name="B2"></td>
</tr>
</table>
</form>
<a href="members_admin.asp?update=meny">Tillbaka Till Menyn</a>
<%End If%>

<%If Request.Querystring("laggtill") = "medlemny" Then%>
<%

spaNamn = Request.Form("namn")
spaEmail = Request.Form("email")
spaFD = Request.Form("fd")
spaStatus = Request.Form("status")
spaRoll = Request.Form("roll")
spaFB = Request.Form("fk")
spaICQ = Request.Form("icq")
spaRnamn = Request.Form("rnamn")

SQL = "Insert Into members"
SQL = SQL & "(Namn,Email,Fodelsedag,Status,Roll,Favoritbana,ICQ,Rnamn) "
SQL = SQL & "VALUES ('"& spaNamn &"', '"& spaEmail &"', '"& spaFD &"', '"& spaStatus &"', '"& spaRoll &"', '"& spaFB &"', '"& spaICQ &"', '"& spaRnamn &"')"
Connect.Execute(SQL)

Response.Redirect "members_admin.asp?update=meny"
'Response.Write "SQL ("& SQL &")"
%>
<%End If%>

<%
RecSet.Close
Set RecSet = Nothing
Connect.Close
Set Connect = Nothing
%>

</body>
</html>

det är i din insert-fråga felet ligger. vad har du för fälttyper på de olika fälten i tabellen?

fält av typen tal skall inte ha apostrofer runt värdet i frågan.

Så här?

SQL = "Insert Into members"
SQL = SQL & "(Namn,Email,Fodelsedag,Status,Roll,Favoritbana,ICQ,Rnamn) "
SQL = SQL & "VALUES ('"& spaNamn &"', '"& spaEmail &"', "& spaFD &", '"& spaStatus &"', '"& spaRoll &"', '"& spaFB &"', '"& spaICQ &"', "& spaRnamn &")"
Connect.Execute(SQL)

under förutsättning att alla fälten i tabellen är textfält utom Fodelsedag och Rnamn, som är tal, så ser den frågan ut att stämma.

men är det verkligen så fälten är definierade?

Japp nu funkar det utom att jag får ett syntaxfel i Insert Into Uttrycket...
Men när jag skriver
Response.Write "SQL ("& SQL &")"
Så är alla fält rätt...

Glöm mitt senaste inlägg...

hur ser det ut när du skriver ut sql-frågan då?

funderar också om det kan vara något av dina fältnamn som är reserverade av access. du bör prova att klamra dina fältnamn med [] alltså:

Insert Into members ([Namn],[Email] ...

mvh,

SQL = "Insert Into members"
SQL = SQL & " ([Namn],Email,Fodelsedag,Status,Roll,Favoritbana,ICQ,Rnamn) "
SQL = SQL & "VALUES ('"& spaNamn &"', '"& spaEmail &"', #"& spaFD &"#, '"& spaStatus &"', '"& spaRoll &"', '"& spaFB &"', '"& spaICQ &"', '"& spaRnamn &"')"
Connect.Execute SQL