7 svar · 226 visningar · startad av Jacob
Jag får ett jobbit felmedelande, jag har gjort ett fomulär som jag ska lägga till nyhter med i min databas men.
Det som strular är min bildid, jag ska nämligen ha med bilder i nyhterna så jag döper att till tal 1,2,3 osv men vissa nyheter har inget någon bild så då vill jag ju nolla ruta men då får ajg felmedelandet:
Feltyp:
Provider (0x80020005)
Typblandningsfel.
/videomonitor/add.asp, line 19
Om jag skriver in det i databasen sä är det ingen fara.
hjälp
Så här det det ut:
<html>
<!-- #include file="adovbs.inc" -->
<% Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=c:\inetpub\wwwroot\videomonitor\adressbok.mdb"
Set RecSet = Server.CreateObject("ADODB.Recordset")
Addera = "SELECT * FROM filmnyheter"
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic
RecSet.AddNew
RecSet("rubrik") = Request.Form("Rubrik")
RecSet("datum") = Request.Form("Datum")
RecSet("forfattare") = Request.Form("Forfattare")
RecSet("texten") = Request.Form("Texten")
[b]RecSet("bildid") = Request.Form("Bildid")[/b]
RecSet.Update
RecSet.Close
Connect.Close %>
RecSet("bildid") = cInt(Request.Form("Bildid"))
Då får jag ett nytt felmedelande:
Feltyp:
Körningsfel i Microsoft VBScript (0x800A000D)
Inkompatibla typer: 'cInt'
/videomonitor/add.asp, line 20
Hello,
"gissar" på att fältet bildid är av typen Tal(Int).
Ändra den till text ... och tillåt nollvärde.
Eller så sätter du bildid till 0 om det ej finns ngn bild till nyheten
cya,
Problemet med text är att jag vill kunna sotera efter bildid och om jag har text så soterar den fel det störsa är 9.
Jag löste det:
RecSet("rubrik") = Request.Form("Rubrik")
RecSet("datum") = Request.Form("Datum")
RecSet("forfattare") = Request.Form("Forfattare")
RecSet("texten") = Request.Form("Texten")
If Request.Form("Bildid") = "" Then
Else
RecSet("bildid") = Request.Form("Bildid")
End If
Tack för tipsen!!