Forkert Datatype ????
Hej eksperter....Jeg er ved at lave en e handel hvor jeg skal
skrive brugernes ordrer til min ordre tabel
men det lader sig ikke gøre fordi jeg får
følgende fejl om og om igen ....
Microsoft OLE DB Provider for ODBC Drivers error '80040e07'
[Microsoft][ODBC Microsoft Access Driver] Data type mismatch in criteria expression.
/flash/kurv.asp, line 50
LINKS:
Her ligger kurv.asp
http://iceb.ljnet.dk/flash/kurv.asp
og her er submit siden der hedder eha.asp
http://iceb.ljnet.dk/flash/eha.asp?pic=image3.jpg
Her er koden til kurv.asp
<%
response.write (request.form("tiddato"))&"<br>"
response.write (request.form("produktnavn"))&"<br>"
response.write (request.form("produktpris"))&"<br>"
response.write (request.form("brugernavn"))&"<br>"
Dim td
td=response.write (request.form("tiddato"))
response.write td
Dim pn
pn=response.write (request.form("produktnavn"))
response.write pn
Dim pp
pp=response.write (request.form("produktpris"))
response.write pp
Dim bn
bn= response.write(request.form("brugernavn"))
response.write bn
' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("hp.mdb")
Conn.Open DSN
' SQL forespørgsel
strSQL = "insert into ehandelsordrer (brugernavn, produktnavn, produktpris, tiddato) values ('" & bn & "', '" & pn & "', '"& pp &"', '"& td &"')"
' Udfør forespørgsel (rs indeholder nu resultatet)
Set rs = Conn.Execute(strSQL)
' Gennemløb Recordset (rs) med en løkke
' Udskriv værdien af kolonnen Fornavn og fødselsdato
' Gå til næste Record i rs
' Fortsæt indtil rs er gennemløbet (EOF = End Of File)
' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing
%>
Her er koden til siden der submitter til kurv.asp
som kaldes eha.asp
<html>
<title>Stort billede af produktet</title>
<head>
</head>
<body>
<%
' Værdien af variablen navn findes
Response.Write "<h1>Billedfil>> " & Request.Querystring("pic") & "</h1>"
' Værdien af variablen alder findes
Response.Write "<h1> " & Request.Querystring("text") & "</h1>"
%>
<img src="http://iceb.ljnet.dk/flash/
<%
response.write request.querystring("pic")
%>
"><br><br>
<%
' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("hp.mdb")
Conn.Open DSN
' SQL forespørgsel
strSQL="SELECT * FROM ehandel WHERE produktbilledefil='" & request.querystring("pic") & "'"
' Udfør forespørgsel (rs indeholder nu resultatet)
Set rs = Conn.Execute(strSQL)
' Gennemløb Recordset (rs) med en løkke
Do
' Udskriv værdien af kolonnen Fornavn og fødselsdato
Response.Write "<h1>BilledTitel >> "& rs("produktnavn") & "<br>"
Dim pn
pn=rs("produktnavn")
response.write pn
Response.Write "<h1>Beskrivelse >> "& rs("produktbeskrivelse") & "<br>"
Response.Write "<h1>Pris Kr. >> "& rs("produktpris") & "<br>"
Dim pp
pp=rs("produktpris")
response.write pp
' Gå til næste Record i rs
rs.MoveNext
' Fortsæt indtil rs er gennemløbet (EOF = End Of File)
Loop While Not rs.EOF
' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing
Dim td
td=date()
response.write td
Dim bn
bn="iceb"
response.write bn
%>
<br>
Gå til kassen <a href="http://iceb.ljnet.dk/flash/kasse.asp" target="_blank">her</a>
<br>
Læg varen i <a href="http://iceb.ljnet.dk/flash/kasse.asp" target="_blank">kurven</a>
<br>
Luk dette vindue <a href="java script: self.close()">her</a>
<br><br>
<P><FORM METHOD=POST ACTION="kurv.asp">
<INPUT TYPE=hidden NAME=tiddato VALUE="<%response.write td%>">
<INPUT TYPE=hidden NAME=produktnavn VALUE="<%response.write pn%>">
<INPUT TYPE=hidden NAME=produktpris VALUE="<%response.write pp%>">
<INPUT TYPE=hidden NAME=brugernavn VALUE="<%response.write bn%>">
<br><INPUT TYPE="submit" VALUE="Læg varen i kurven">
</FORM>
<br><br><a href="java script:window.print()">Udskriv</a><br><br>
</body>
</html>
