Hej

Jag har stött på ett problem som jag tycker är underligt. Jag kör vanlig ASP mot en Access-databas.

Det jag vill göra är först att kopiera innehållet i en (mall-)tabell till en annan befintlig tabell och därefter uppdatera de värden jag fick in i den tabellen.

När jag kör steg för steg - i 3 olika filer - får jag det att fungera, men när jag lagt ihop allt till en enda fil fungerar det inte. När jag bryter ut det som den klagar på till en enskild fil så fungerar den delen också bra.

Det jag försöker göra är alltså:
1. kopiera innehållet i en tabell in till en annan tabell
2. sök och ersätt på vissa värden som kom in i och med kopieringen

Raden som det klagas på är:
rs_dhcp_cmd.CommandText = "UPDATE ip_nummer SET ipnr_status = " & nummerstatus & " WHERE ipnr_serie_id = " & ip_serieid & " AND (ipnr_ip4 BETWEEN " & dhcp_start & " AND " & dhcp_stopp & ") "

Felet blir:
"Feltyp:
Körningsfel i Microsoft VBScript (0x800A000D)
Inkompatibla typer"

Som sagt, detta fungerar när jag kör det i en separat fil, men inte när det ligger efter det andra...

Finns det någon chans att ASP-koden inte "hinner med" när man kör den i följd eller kan det vara något annat som stör?

Mvh
/ Per

testa

' för debugging så du ser hur sql-satsen verkligen ser ut
response.write dinsql
response.end

' sen kör
rs_dhcp_cmd.Execute(dinsql)

sen - se till att dhcp_start och dhcp_stopp inte är tomma - då kommer du garanterat få fel.

Värdena ser definitivt ut att vara rätt, då det ju fungerar om man kör sidorna separat men det blir fel om man lägger dem i en följd.

Någon teori om hur det kan bli så?

/ Per

Vet du vad jag ser - det är inte sql som smäller, det är själva koden!

Finns .commandtext på ett objekt i klassisk asp? Skicka in lite kod hur du skriver för att skapa objekten, öppna data så vi ser vad som kan vara fel. Använder du commandobjekt är det där det kan strula till det.

Hej

I början av filen är det bla dessa värden som initieras.

<%
ip_serieid = CInt(Request("serieid"))
dhcp_start = CInt(Request("dhcp1"))
dhcp_stopp = CInt(Request("dhcp2"))
nummerstatus0 = 1
nummerstatus = CInt(nummerstatus0)
stdipserieid0 = 9999
stdipserieid = CInt(stdipserieid0)
%>

<%
Dim rs_dhcp
Dim rs_dhcp_cmd
Dim rs_dhcp_numRows

Set rs_dhcp_cmd = Server.CreateObject ("ADODB.Command")
rs_dhcp_cmd.ActiveConnection = MM_itc_STRING
rs_dhcp_cmd.CommandText = "UPDATE ip_nummer SET ipnr_status = " & nummerstatus & " WHERE 
ipnr_serie_id = " & ip_serieid & " AND (ipnr_ip4 BETWEEN " & dhcp_start & " AND " & dhcp_stopp & ") " 
rs_dhcp_cmd.Prepared = true

Set rs_dhcp = rs_dhcp_cmd.Execute
rs_dhcp_numRows = 0
%>

0x800A000D är ett VB-fel (Type Mismatch).

Jag skulle gissa att det är nåt i stil med det här

en_variabel = Cint(Request("NåntingSomInteGaranteratGårAttKonverteraTillEnInteger"))

en_annan_variabel = Cint(kanske_null_eller_en_sträng_eller_nåt_sånt)

Jo, det tror man ju.
Men om det fungerar i en egen fil borde det väl fungera även om man placerar flera RS efter sig i en och samma fil?

Vad finns det som kan spöka då?
Finns det en möjlighet att det blir fel i körningen pga cachning, någon minnesgrej som blir full eller inte hinner med eller något annat?
Läses tex tabellen in i minnet av ASP och när innehållet uppdateras i tabellen, att ASP inte "hinner med"?

/ Per

Ett sista försök... någon som har ett matnyttigt tips?

Hur skulle ni göra om ni behövde köra flera uppdateringsfrågor i rad i en och samma ASP-fil?
Har ni gjort det? Något strul?

/ Per

Testa skriv ut alla relevanta variabler.
Dubbelkolla alla typkonverteringar.
Försök hitta exakt vilken rad det är som smäller (i värsta fall -- släng in typ response.write("hej") på varannan rad och se hur många hej du får...)

Den rad det blir fel på är (som det står längre upp i tråden):

rs_dhcp_cmd.CommandText = "UPDATE ip_nummer SET ipnr_status = " & nummerstatus & " WHERE 
ipnr_serie_id = " & ip_serieid & " AND (ipnr_ip4 BETWEEN " & dhcp_start & " AND " & dhcp_stopp & ") " 

Ops, lite snabb där. Vad ger då t.ex.

Dim jox As String
jox = "UPDATE ip_nummer SET ipnr_status = " & nummerstatus & " WHERE 
ipnr_serie_id = " & ip_serieid & " AND (ipnr_ip4 BETWEEN " & dhcp_start & " AND " & dhcp_stopp & ") " 
rs_dhcp_cmd.CommandText = jox

Med mycket trixande och lite nytänk har jag nu fått till det men vill ha en förflyttning till en annan sida sist i filen.

Om jag skriver...

Response.Redirect "ipdb2.asp?serieid=61&ip1=62&ip2=63&ip3=64&dhcp1=65&dhcp2=166"

Response.Redirect "ipdb2.asp?serieid=" & ip_serieid & "&ip1=" & ip1 & "&ip2=" & ip2 & "&ip3=" & ip3 & "&dhcp1=" & dhcp_start & "&dhcp2=" & dhcp_stopp & " "

<b>Verifiera att det verkligen, verkligen, verkligen, absolut och oomkullrunkeligen rör sig om tal</b> (eller ännu hellre strängar) du försöker konkatenera i din Response.Redirect "ipdb2..." & ...

Felmeddelandet du får säger att nån eller några av dina variabler inte går att konvertera till en sträng.