FUNCTION r214input fdPrNo = ALLTRIM(UPPER(Request.Form("PRNO"))) fdBN = Request.Form("BN") fdPK = Request.Form("PK") mEr = "" lcTable="" m.protbl = "" m.rplen = 0 DO CASE CASE ! EMPTY(fdBN) SQLWhere = "BN=" + ALLTRIM(fdBN) IF ! EMPTY(fdPK) SQLWhere = SQLWhere + " AND PK=" + ALLTRIM(fdPK) ENDIF OTHERWISE lcTable = "Not Found" Response.Expandtemplate(goWCServer.oConfig.oTask.cHtmPath+"r214input.htm") RETURN ENDCASE lcTable="TBL Master File<br>" THESQLDB = "TBL_BL" THESQLTABLE = "TBL_BOL" THESERVER = goWCServer.oConfig.oTask.cSQLServer usr = pas = ConnStr = [driver=SQL Server; server=]+THESERVER+[; database=]+THESQLDB+[; uid=]+usr+[;pwd=]+pas+[; Trusted_Connection=No;] curHandle = SQLstringCONNECT( connStr ) SELECT; bol_number,; pro_number,; client_city,; client_state,; client_zip,; customer_city,; customer_state,; customer_zip,; ship_date; FROM THESQLTABLE; into cursor 214 SELECT 214 loSC = CREATEOBJECT("wwShowCursor") loSC.lCenterTable = .f. loSC.cHeaderBGColor = "black" &&"#336633" loSC.lAlternateRows = .T. loSC.cAlternatingBGColor = "white" &&"#EFEFEF" loSC.cTableBorder ="3" loSC.cTableWidth="750" DIMENSION laHeaders[10] laHeaders[1] = "BOL" laHeaders[2] = "PRO" laHeaders[3] = "Ref#" laHeaders[4] = "oci" laHeaders[5] = "ost" laHeaders[6] = "ozp" laHeaders[7] = "dci" laHeaders[8] = "dst" laHeaders[9] = "dzp" laHeaders[10] = "Ship Date" loSC.BuildFieldListHeader(@laHeaders) loSC.lSumNumerics = .t. loSC.ShowCursor() lctable=loSC.GetOutput() Response.ExpandTemplate(goWCServer.oConfig.oTask.cBTSHTMPath+"r214List.htm")It keeps popping up and asking me which FoxPro DB I want to open, so it's not even seeing the SQL stuff I guess.