Hjælp... underlig fejl....

ja...i design visning i access skal du sætte feltet linkid til at være et tal!

Her er et godt link, hvis du har problemer med VBScript:

http://www.15seconds.com/faq/ASP%202.0/475.htm

I am having this error:

Microsoft VBScript runtime error \'800a000d\'

Type mismatch

What is the problem?

A:     One of the most frequent reasons for this is incompatible VBS types. This often occurs when passing parameters to object methods.

/per

i access er felterne som følger

headline = tekst
name = tekst
link = notat
linkid = autonummering (langt heltal - stigende)

per??
og det betyder?

Det er nemmere at se fejlen, hvis du viser et uddrag af dit VBScript program.

/per

Her er så mit script

<%
response.buffer=\"true\"
killer = Request.form(\"killer\")
delete=0
if killer=\"\" then
delete=1
end if
xx=1
response.write int(request.form(\"ider\"&xx))
killer2 = REPLACE(killer, \",\",\" or linkid =\")

  Set Rs = Server.CreateObject(\"ADODB.Connection\")
  DBPath = \"DBQ=\" & server.mappath(\"../links.mdb\")
Rs.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; \" & DBPath

for xx=1 to int(request.form(\"count\"))
idid= request.form(\"ider\"&xx)
response.write idid
SQL=\"UPDATE link SET headline = \'\"&request.form(\"hh\"&xx)&\"\', name = \'\"&request.form(\"nn\"&xx)&\"\', link = \'\"&request.form(\"ll\"&xx)&\"\' WHERE linkid = \"&int(idid)
response.write sql
Ret Record = Rs.Execute(SQL)
next
  if delete=0 then
\'    SQL=\"DELETE * FROM link WHERE linkid = \"&killer2
\'    Set Record = Rs.Execute(SQL)
  end if
\'response.redirect \"default.asp\"   

%>
<html>
<body>
</body>
</html>

delete=0
delete=1
Du kan ikke kalde den samme variabel 2 gange i samme If sætning.

Kald den ene delete1 = 1
og den anden delete = 0

ups ...
min fejl !!

Ændrer

Ret Record = Rs.Execute(SQL)

til

Rs.Ececute(SQL)


Så virker det med garanti!