Exception occurred

Hejsa

Jeg er igang med at lave en samling scripts til automatisering af forskellige opgaver, herunder oprettelse af primær DNS.

Jeg har i den forbindelse et mærkeligt problem med noget SQL. Funktionen ser således ud:

--
  Function f_CreateNs1(ByVal OrderId, ByVal DomainName, ByVal DomainNameO, ByVal DomainExt, ByVal Ns1, ByVal Ns2, ByVal Server_IP, ByVal Server_Mail)
    Ns1 = Ns1 & ".net.fjernet.dk"
    Ns2 = Ns2 & ".net.fjernet.dk"
    FileName = "run\" & DomainName & Fix(Timer()) & ".cmd"
   
    WriteText = "cscript c:\aut\dnsprov\dnszones.vbs Create Primary Forward " & DomainName & vbCrLf
    WriteText = WriteText & "cscript c:\aut\dnsprov\dnsrecord.vbs /delete NS " & DomainName & " @ sunset.hotisp.net." & vbCrLf
    WriteText = WriteText & "cscript c:\aut\dnsprov\dnsrecord.vbs /add NS " & DomainName & " @ " & Ns1 & "." & vbCrLf
    WriteText = WriteText & "cscript c:\aut\dnsprov\dnsrecord.vbs /add NS " & DomainName & " @ " & Ns2 & "." & vbCrLf
    WriteText = WriteText & "cscript c:\aut\dnsprov\dnsrecord.vbs /modify SOA " & DomainName & " primaryserver " & Ns1 & "." & vbCrLf
    WriteText = WriteText & "cscript c:\aut\dnsprov\dnsrecord.vbs /modify SOA " & DomainName & " responsibleparty hostmaster.fjernet.dk." & vbCrLf
    WriteText = WriteText & "cscript c:\aut\dnsprov\dnsrecord.vbs /add A " & DomainName & " @ " & Server_IP & vbCrLf
    WriteText = WriteText & "cscript c:\aut\dnsprov\dnsrecord.vbs /add CNAME " & DomainName & " www." & DomainName & ". @" & vbCrLf
    WriteText = WriteText & "cscript c:\aut\dnsprov\dnsrecord.vbs /add CNAME " & DomainName & " mail." & DomainName & ". " & Server_Mail & ".net.fjernet.dk." & vbCrLf
    WriteText = WriteText & "cscript c:\aut\dnsprov\dnsrecord.vbs /add MX " & DomainName & " @ mail." & DomainName & ". 10" & vbCrLf
    WriteText = WriteText & "cscript c:\aut\dnsprov\dnsrecord.vbs /add MX " & DomainName & " @ mailrelay.net.fjernet.dk. 50" & vbCrLf
    WriteText = WriteText & "cscript c:\aut\dnsprov\dnsrecord.vbs /add TXT " & DomainName & " @ ""The owner of this domain is a customer of fjernet.dk"""
   
    Set f1 = FSO.OpenTextFile(FileName,2,True)
    f1.WriteLine WriteText
    f1.Close
    WShell.Run FileName
   
    ' Zonefile Updates
    ' A
    SQL = "INSERT INTO intra_ns_zones(OrderId,DomainName,DomainExt,RecType,RecName,RecData,CreateDate,Status) "
    SQL = SQL & "VALUES(" & OrderId & ",'" & DomainNameO & "','" & DomainExt & "','A','@','" & Server_IP & "','" & Now() & "',100);"
    Set Qry = Conn.Execute(SQL)
   
    ' CNAME WWW
    SQL = "INSERT INTO intra_ns_zones(OrderId,DomainName,DomainExt,RecType,RecName,RecData,CreateDate,Status) "
LINIE 89:    SQL = SQL & "VALUES(" & OrderId & ",'" & DomainNameO & "','" & DomainExt & "','CNAME','www','" & DomainName & "','" & Now() & "',100);"
    Set Qry = Conn.Execute(SQL)
   
    ' CNAME MAIL
    SQL = "INSERT INTO intra_ns_zones(OrderId,DomainName,DomainExt,RecType,RecName,RecData,CreateDate,Status) "
    SQL = SQL & "VALUES(" & OrderId & ",'" & DomainNameO & "','" & DomainExt & "','CNAME','mail','" & Server_Mail & ".net.fjernet.dk','" & Now() & "',100);"
    Set Qry = Conn.Execute(SQL)
   
    ' MX 10
    SQL = "INSERT INTO intra_ns_zones(OrderId,DomainName,DomainExt,RecType,RecName,RecData,CreateDate,Status) "
    SQL = SQL & "VALUES(" & OrderId & ",'" & DomainNameO & "','" & DomainExt & "','MX','@','mail." & DomainName & ",10','" & Now() & "',100);"
    Set Qry = Conn.Execute(SQL)
   
    ' MX 50
    SQL = "INSERT INTO intra_ns_zones(OrderId,DomainName,DomainExt,RecType,RecName,RecData,CreateDate,Status) "
    SQL = SQL & "VALUES(" & OrderId & ",'" & DomainNameO & "','" & DomainExt & "','MX','@','mailrelay.net.fjernet.dk,50','" & Now() & "',100);"
    Set Qry = Conn.Execute(SQL)
   
    ' Update NS1_Run Status
    SQL = "UPDATE run_ns1 SET CreateDate = '" & Now() & "', Status = 100 WHERE OrderID = " & OrderID & ";"
    Set tQry = Conn.Execute(SQL)
  End Function
--

I linie 89 (markeret i koden) får jeg ved kørsel gennem cscript.exe følgende fejl:
ns1.vbs(89, 5) (null): Exception occurred

Jeg kan ikke finde fejlen - har efterhånden arbejdet på det så længe, at jeg har set mig blind på det.

Nogen der har en idé til, hvad der går galt?