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.....
Frågan#1
Vad är felet om jag får detta meddelande:
Typblandningsfel i villkorsuttryck.
------------------
Das Dunkhopf...
Felmeddelande...
14 svar · 289 visningar · startad av ReloadMaster
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%>
------------------
Das Dunkhopf...
Vilken rad får du fel på och hur lyder hela felmeddelandet?
------------------
essentitia preter non sans multiplicandum
ett tips är att använda sökfunktionen och söka på exempelvis typblandningsfel. jag kan lova att du får träff. :)
------------------
mördar-anders, det är jag.
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
------------------
Das Dunkhopf...
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,
------------------
mördar-anders, det är jag.
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>
------------------
Das Dunkhopf...
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.
------------------
mördar-anders, det är jag.
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)
------------------
Das Dunkhopf...
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?
------------------
mördar-anders, det är jag.
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...
------------------
Das Dunkhopf...
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,
------------------
mördar-anders, det är jag.
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