hej!
vad menas med detta felmeddelande???
Provider error '80020005'
Type mismatch.
/kopbytsalj/add_post.asp, line 20
på rad 20 finns detta:
RecSet("pris") = Request.Form("pris")
någon som kan?
Provider error
14 svar · 315 visningar · startad av dr. Snaggle
finns det någon form som heter pris?
ingen som vet???
Jag vill se mer kod. Jag vill ha information om hur du öppnar recordset, vad variabler innehåller och hur tabellen är definierad.
Annars går frågan inte att svara på.
Mvh
självklart får du mer kod! :)
add_post.asp:
<!-- #include file="../../logs/adovbs.inc" -->
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=phat;Data Source=" & Server.MapPath("../../logs/kop.mdb")
Set RecSet = Server.CreateObject("ADODB.Recordset")
Addera = "Select * From kop"
RecSet.Open Addera, Conn, adOpenStatic, adLockOptimistic
RecSet.AddNew
RecSet("datum") = Now()
RecSet("namn") = Request.Form("namn")
RecSet("mail") = Request.Form("mail")
RecSet("info") = Request.Form("info")
RecSet("rubrik") = Request.Form("rubrik")
RecSet("pris") = Request.Form("pris")
RecSet("tel") = Request.Form("tel")
RecSet("mobil") = Request.Form("mobil")
RecSet("ip") = Request.ServerVariables("remote_host")
RecSet.Update
RecSet.Close
Response.Redirect "kopbytsalj.asp"
%>
kopbytsalj.asp:
<!-- #include file="../../logs/adovbs.inc" -->
<html>
<head><title>Annonsera</title>
<link href="style.css" rel="stylesheet" type="text/css">
</head>
<body>
<form name="kop" action="add_post.asp" method="post">
<p>Namn:<br>
<input type="text" name="namn" size="30">
<br>
E-post:<br>
<input type="text" name="mail" size="30">
<br>
Tel:<br>
<input type="text" name="tel" size="30">
<br>
Mobil:<br>
<input type="text" name="mobil" size="30">
<br>
Rubrik:<br>
<input type="text" name="rubrik" size="30">
<br>
Pris:<br>
<input type="text" name="pris" size="30">
<br>
Info:<br>
<textarea rows="8" cols="40" name="info" scrollbar="0"></textarea>
<br>
<input type="submit" value=" SKICKA ">
<br>
<br>
</p>
</form></td>
</tr>
<%
pg = Trim(Request("pg"))
if pg = "" Then pg = 1
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("../../logs/kop.mdb")&";"
Set RecSet = Server.CreateObject("ADODB.Recordset")
Addera = "Select * From kop ORDER BY datum DESC"
RecSet.Open Addera, Conn, adOpenStatic, adLockOptimistic
RecSet.PageSize = 5
RecSet.AbsolutePage = pg
While Not RecSet.EOF and rowCount < RecSet.PageSize
rowCount = rowCount + 1
%>
<!-- skriver ut annonser!!!!!!!!!!!!!!!-->
<tr>
<td width="298" height="189" align="left" valign="top"> <table width="300" bgcolor="#C8DC5D" cellspacing="0" cellpadding="5">
<tr>
<td bgcolor="#004B80" style="border : 1px solid Black;"> [<%=RecSet("datum")%>] - <a href="mailto:<%=RecSet("mail")%>" title="Maila Annonsören"><%=RecSet("namn")%></a> | <a href="delete.asp?id=<%=RecSet("id")%>">Radera</a>
<hr width="98%"> <%=RecSet("rubrik")%> </td>
</tr>
<tr>
<td> <font color="#000000"><%=RecSet("info")%></font><br> <br> </td>
</tr>
<tr>
<td bgcolor="#004B80" style="border : 1px solid Black;">Pris:<%=RecSet("pris")%>kr <br>
Tel:<%=RecSet("tel")%> <br>
Mobil:<%=RecSet("mobil")%> </td>
</tr>
</table></td>
<td width="180"></td>
</tr>
<tr>
<td height="12"></td>
<td></td>
</tr>
</table>
</div>
<br>
<div align="center">
<%
RecSet.MoveNext
Wend
%>
<%
If RecSet.PageCount > 1 Then
For i = 1 to RecSet.PageCount
If i <> cINT(pg) Then
%>
<a href="kopbytsalj.asp?pg=<%=i%>"><%=i%></a>
<% else %>
<b><%=i%></b>
<%
end if
next
end if
%>
</div>
Vad är fältet pris för datatyp i tabellen, och vad innehåller Request.Form("pris") ?
i tabellen har "pris" datatypen tal. Jag förstår inte riktigt vad du menar med vad Request.Form("pris") innehåller. Det ska innehålla priset på de man vill sälja, går det att använda datatypen text kanske?
solbulle skrev:
Du ska ha tal.
RecSet("pris") = Cint(Request.Form("pris"))
okej... nu får jag detta felmeddelandet:
Microsoft VBScript runtime error '800a000d'
Type mismatch: 'Cint'
/kopbytsalj/add_post.asp, line 20
Hm? Vad sa du att typen i db var? Vad har du i formfältet? Är det BARA ett tal?
jag har satt tal... och man ska bara kunna skriva in ett tal.
Är du helt säker på att request.form("pris") innehåller ett talvärde? Det verkar som om den inte gör det.
Testa
response.write request.form("pris")
response.end
Eller kanske
If IsNumeric(Request.Form("pris")) Then
RecSet("pris") = CInt(Request.Form("pris"))
End If