|
AskSQLTeam
Ask SQLTeam Question
0 Posts |
 Posted - 2000-12-09 : 11:33:55
|
Minna writes "Hi, I get this errormessage when I try to update the SQLdb and do not know how to resolve it.
It is not my script so I need an expert to help me resolve this problem.
The fault is on line 147 in the following script.
ps. incase of wondering...what language it is...swedish...
Please help me!
Thanks a lot.
id = Request.Cookies("SBOLid")
szInfil = Request.QueryString("Infil")
Server.ScriptTimeOut = 80000
Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open "DSN=SBOL;uid=sa;pwd=grigri"
myConn.CommandTimeout = 80000
myConn.BeginTrans
Set mySP = CreateObject("ADODB.Command")
Set mySP.ActiveConnection = myConn
mySP.CommandType = 4 'adCmdStoredProc
mySP.CommandText = "spImport_Försäkring"
Set fso = CreateObject("Scripting.FileSystemObject")
Set Infil = fso.OpenTextFile(szInfil)
szBuf = Infil.Read(232)
myConn.Execute "INSERT INTO tblImport (InFilTyp, Filnamn, Datum, DatumEnlFil) VALUES('Folksam Konsument', '" _
& szInFil & "', '" & Now & "', '" & Mid(szBuf, 18, 8) & "')"
If Request.QueryString("DeAktiveraPoster") Then
Response.Write "Detta är en beståndsfil. Alltså sätts alla befintliga Folksam Konsumentavtal till inaktiva innan importen startar. Detta kan ta väldigt lång tid.
"
myConn.Execute "UPDATE tblFörsäkringar SET Status = 0 WHERE InfilTyp = 'Folksam Konsument'"
End If
Infil.close
Set Infil = fso.OpenTextFile(szInfil)
szBuf = Infil.Read(231) ' Läs förposten
szHosBolagSkapadDen = Mid(szBuf, 18, 8)
Do Until false 'Infil.EOF
szBuf = Infil.Read(231)
If Left(szBuf, 1) = "S" Then Exit Do ' Om slutposten nåtts. Hoppa ur loopen.
szBuf = Replace(szBuf, "'", " ´") ' Ändra alla ' till ´
szBuf = Replace(szBuf, chr(34), " ´") ' Ändra alla " till ´
mySP(1) = Mid(szBuf, 1, 1) ' Posttyp
mySP(2) = szHosBolagSkapadDen ' HosBolagSkapadDen
mySP(3) = "Folksam Konsument" ' InFilTyp
mySP(4) = "Folksam" ' Bolag
mySP(5) = Trim(Mid(szBuf, 2, 16)) ' Försäkringnummer
If Mid(szBuf, 18, 16) = "0000000000000000" _
Or Mid(szBuf, 18, 16) = " " Then ' Nulla AnnatFörsäkringsnummer
mySP(6) = Null ' om det är nollor eller blankt
Else
mySP(6) = Trim(Mid(szBuf, 18, 16))
End If
mySP(7) = Mid(szBuf, 201, 8) ' Begynnelsedatum
mySP(8) = Null ' FörfalloDatum
mySP(9) = Trim(Mid(szBuf, 34, 29)) ' Namn
mySP(10) = Trim(Mid(szBuf, 63, 27)) ' Gatuadress
mySP(11) = Trim(Mid(szBuf, 90, 5)) ' Postnummer
mySP(12) = Trim(Mid(szBuf, 95, 13)) ' Postadress
mySP(13) = Trim(Mid(szBuf, 113, 11)) ' Telefonnr
mySP(14) = Trim(Mid(szBuf, 124, 12)) ' PersOrgNr
mySP(15) = Null ' Premie
mySP(16) = Null ' HBPremie
mySP(17) = Null ' SanPremie
mySP(18) = Null ' FullservicePremie
mySP(19) = Trim(Mid(szBuf, 138, 35)) ' Fastighetsbeteckning
mySP(20) = Null ' ObjAdress
mySP(21) = Trim(Mid(szBuf, 108, 5)) ' ObjPostNr
mySP(22) = Trim(Mid(szBuf, 173, 6)) ' LKF
mySP(23) = Trim(Mid(szBuf, 179, 18)) ' Kommun
mySP(24) = Trim(Mid(szBuf, 209, 2)) ' Antalbyggnader
mySP(25) = Trim(Mid(szBuf, 211, 2)) ' AntalHuvudByggnader
mySP(26) = Null ' AntalLägenheter
Select Case Mid(szBuf, 213, 1) ' Översätt HBKod till klartext
Case "0" : mySP(27) = "Ingår"
Case "1" : mySP(27) = "Ingår ej"
Case "2" : mySP(27) = "Ej beviljad"
Case "3" : mySP(27) = "Ingår ej"
Case "4" : my |
|
Microsoft OLE DB Provider for ODBC Drivers error '80040e31'