Type mismatch: 'objRS'

Hej wf...
Jag vill göra En ändring på denna sida. (Bifogar koden som sid 1.asp)
Ändingen skulle bestå i att när jag laddar sidan så är redan personnumret i fyllt. Detta sker med hjälp av kryssrutor på denna sida (Bifogar sidan som 2.asp)
Själv skrivningen till databas sker på den bifogade 3.asp

Jag har som ni ser i 4.asp gjort 2 förändringar( förändringarna är feta):
1

strSQL1 =" SELECT tblFluids.FluidID, FluidNamn, typeNamn, PatID FROM [B]tblPersonuppgifte[/B]r, tblFluidRelat, tblFluids, tblFluidTypes WHERE tblFluidRelat.FluidID = tblFluids.FluidID AND tblFluidRelat.typeID = tblFluidTypes.typeID ORDER by tblFluidTypes.typeNamn"

2

Patientens personnummer:&nbsp;&nbsp;&nbsp; <input name="personnr" type="text" [B]value='"<%=objRS("PatID")%>"'[/B]>

Men följande händer (titta även i textrutan)
Mina funderingar

1. Borde orsakas av fel i strSQL1, eller hur?
2. Men hur ändra?
3. Det är tänkt att "ikryssningen " skall fälja med på flera sidor. Går detta utan paging?

Till att börja med behöver du enbart skriva

<input name="personnr" type="text" value="<%=objRS("PatID")%>">

Du kan skippa '". Koden där är HTML, inte VBScript. ;)

Jag har inte möjlighet att kolla på din medskickade kod dock. :(

m_soderlund skrev:

Jag har inte möjlighet att kolla på din medskickade kod dock

Tråkigt, för jag gjorde på detta sätt för att spara utrymme

Förslaget funkade inte...

Jag löste istället nästan problemet med

<input name="personnr" type="text" value="<%=Request.Form("till")%>">

Problemet är att jag får enkelfjuttar

'1212121212'

Hur får jag bort dessa?

du har skrivit med fnuttarna här:

<input name="personnr" type="text" value='"<%=objRS("PatID")%>"'>

om det var de nu menade, ta bort dem, dvs så här:

<input name="personnr" type="text" value="<%=objRS("PatID")%>">

Tack för ditt svar Calevan,
men som du kanske ser har jag redan ändrat koden till

<input name="personnr" type="text" value="<%=Request.Form("till")%>">

och får det nästan att fungera. Det enda som blir fle är att jag får med enkelfjuttar(')

'1212121212'

Sedan skall det helst fungera med sidan där själva tillskrivningen sker

pnr= Request.Form("personnr")
d = FormatDateTime(Date, 2)
For each formObj in Request.Form
     If left(formObj,9) = "leggatill" Then
            lngFluidID = Replace(Request.Form(formObj), "leggatill", "")
            strSQL = "INSERT INTO tblVetskebalans(Dag, FluidID, Volym, PatID) VALUES(#" & d & "#,'" & lngFluidID & "'," & Request.Form("volym" & lngFluidID) & ", '" & pnr & "')"

 Response.Write strSQL
vatskeb.Execute strSQL, , 128

Du kan ju alltid göra en liten snabb replace.

<input name="personnr" type="text" value="<%=Replace(Request.Form("till"), "'", "")%>">

Mvh

som vanligt @nders - är du värd en S T O R buket blommor