varför får jag type mismatch
på detta...???

If Request.QueryString("action") = "un" AND Request.QueryString("update") = "yes" Then
T = Cint(Request.Form("mrx")) '<----DETTA ÄR RAD 68

'Skapa sql-sträng för att lägga in en ny användare
strSQL = ""
strSQL = strSQL & "INSERT INTO tblUnik ("
strSQL = strSQL & "unikText, unikNamn, unikNummer"
strSQL = strSQL & ")"
strSQL = strSQL & "VALUES ("
strSQL = strSQL & "'" & Request.Form("texten") & "', " 'texten
strSQL = strSQL & "'" & Request.Form("namn") & "', " 'namnet
strSQL = strSQL & "0" 'nummer
strSQL = strSQL & ")"

'Kör sql-strängen mot databsaen
objConn.execute(strSQL)
'en ny sql

FOR X = 1 TO T
strSQL = ""
strSQL = strSQL & "INSERT INTO tblUnik ("
strSQL = strSQL & "unikmodel, unikNamn, unikNummer"
strSQL = strSQL & ")"
strSQL = strSQL & "VALUES ("
strSQL = strSQL & "'" & Request.Form("model" & X & "") & "', " 'text
strSQL = strSQL & "'" & Request.Form("namn") & "', " 'text
strSQL = strSQL & "'" & X & "', " 'text
strSQL = strSQL & ")"

'Kör sql-strängen mot databsaen
objConn.execute(strSQL)
Next


felmedelandet:
Microsoft VBScript runtime error '800a000d'

Type mismatch: 'Cint'

/prospectum/admin/main.asp, line 68

*redigerat*
Nu har jag fått lite hjälp i chaten men jag har inte blivit klokare för det... ;)

så här ser det ut nu:
strSQL = ""
strSQL = strSQL & "INSERT INTO tblUnik ("
strSQL = strSQL & "unikText, unikNamn, unikNummer"
strSQL = strSQL & ")"
strSQL = strSQL & "VALUES ("
strSQL = strSQL & "'" & Request.Form("texten") & "', " 'texten
strSQL = strSQL & "'" & Request.Form("namn") & "', " 'namnet
strSQL = strSQL & "0" 'nummer
strSQL = strSQL & ")"

'Kör sql-strängen mot databsaen
objConn.execute(strSQL)
'en ny sql
nT = Request.Form("mrx")
If not IsNumeric(nT) then
nT= cInt("nT") <---- Nu får jag samma fel fast här!!!
end if


FOR nX = 1 TO nT
strSQL = ""
strSQL = strSQL & "INSERT INTO tblUnik ("
strSQL = strSQL & "unikmodel, unikNamn, unikNummer"
strSQL = strSQL & ")"
strSQL = strSQL & "VALUES ("
strSQL = strSQL & "'" & Request.Form("model" & nX & "") & "', " 'text
strSQL = strSQL & "'" & Request.Form("namn") & "', " 'text
strSQL = strSQL & "'" & nX & "', " 'text
strSQL = strSQL & ")"

'Kör sql-strängen mot databsaen
objConn.execute(strSQL)

Jag brukade få samma fel som du när jag körde en CInt på en tom sträng dvs om din request returnerar "" så får du ett fel.
Därför brukade jag skriva:

<code>
if not request.querystring("var") = "" then
intVar = cInt(request.querystring("var"))
else
intVar = 0
end if
</code>

Dessutom, eftersom du ändå "tejpar" in variablerna i den SQL-sträng så behöver du ju inte omvandla din insträng till Integer, utom om du t ex ska räkna med den.

//Mikael
.:: DåttNättare ::.

tackar så mycket... att jag inte såg det... ;)

bockar ödmjukast...

=)))

puss