?
Solved

Connection Issue with my Database

Posted on 2009-04-21
2
Medium Priority
?
398 Views
Last Modified: 2012-05-06
I am having a connection issue with my database. One database is on a server which I can connect to and the other is on the IIS of a laptop computer.

I can see and open the database on the laptop via Enterprise Manager. I can see the tables as well.

I have given the db on the laptop a user name and password which works in Enterprise Manager. I have also just used the SA access which works.

The problem is that when I try to connect via my webpage it says that the server does not exist.

The following connection works:

"Driver={SQL Server};Server=PWCCORE;Database=Veneer;UID=sa;PWD=sharky7676"

These connections were modeled after the connection above and do not work.

1)      "Driver={SQL Server};Server=PWC109;Database=Veneer;UID=jcoats;PWD=deovin"
2)      "Driver={SQL Server};Server=PWC109/VENEER;Database=Veneer;"
3)      "Driver={SQL Server};Server=PWC109/VENEER;Database=Veneer;UID=sa;PWD="
4)      "Driver={SQL Server};Server=PWC109;Database=Veneer;UID=jcoats;PWD=deovin"
5)      "Driver={SQL Server};Server=PWC109;Database=Veneer;UID=sa;PWD="
6)      "Driver={SQL Server};Server=PWC109;Database=Veneer;

This is the error that I get for the code above:
Technical Information (for support personnel)
"      Error Type:
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][ODBC SQL Server Driver][DBNETLIB]SQL Server does not exist or access denied.
/pwc109/tbl_RM_Materials_Insert_Scarf.asp, line 10
"      Browser Type:
Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1; .NET CLR 1.0.3705; .NET CLR 1.1.4322; .NET CLR 2.0.50727; .NET CLR 3.0.4506.2152; .NET CLR 3.5.30729)
"      Page:
GET /pwc109/tbl_RM_Materials_Insert_Scarf.asp

This is the page that generates the error message:
-------------------------------------------------------------------------------------------------------------------
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include file="Connections/veneermove.asp" -->
<!--#include file="WA_DataAssist/WA_AppBuilder_VB.asp" -->
<%
Dim rs_Supplier
Dim rs_Supplier_cmd
Dim rs_Supplier_numRows
 
Set rs_Supplier_cmd = Server.CreateObject ("ADODB.Command")
rs_Supplier_cmd.ActiveConnection = MM_veneermove_STRING
rs_Supplier_cmd.CommandText = "SELECT supplier_name FROM dbo.tbl_suppliers ORDER BY supplier_name DESC" 
rs_Supplier_cmd.Prepared = true
 
Set rs_Supplier = rs_Supplier_cmd.Execute
rs_Supplier_numRows = 0
%>
<%
Dim rs_Location
Dim rs_Location_numRows
 
Set rs_Location = Server.CreateObject("ADODB.Recordset")
rs_Location.ActiveConnection = MM_veneermove_STRING
rs_Location.Source = "SELECT LocationNum FROM dbo.tbl_location ORDER BY LocationNum DESC"
rs_Location.CursorType = 0
rs_Location.CursorLocation = 2
rs_Location.LockType = 1
rs_Location.Open()
 
rs_Location_numRows = 0
%>
<%
Dim rs_Grade
Dim rs_Grade_cmd
Dim rs_Grade_numRows
 
Set rs_Grade_cmd = Server.CreateObject ("ADODB.Command")
rs_Grade_cmd.ActiveConnection = MM_veneermove_STRING
rs_Grade_cmd.CommandText = "SELECT grade FROM dbo.tbl_grades ORDER BY grade DESC" 
rs_Grade_cmd.Prepared = true
 
Set rs_Grade = rs_Grade_cmd.Execute
rs_Grade_numRows = 0
%>
<%
Dim rs_Thickness
Dim rs_Thickness_numRows
 
Set rs_Thickness = Server.CreateObject("ADODB.Recordset")
rs_Thickness.ActiveConnection = MM_veneermove_STRING
rs_Thickness.Source = "SELECT thickness FROM dbo.tbl_thickness ORDER BY thickness DESC"
rs_Thickness.CursorType = 0
rs_Thickness.CursorLocation = 2
rs_Thickness.LockType = 1
rs_Thickness.Open()
 
rs_Thickness_numRows = 0
%>
<%
Dim rs_Grades
Dim rs_Grades_numRows
 
Set rs_Grades = Server.CreateObject("ADODB.Recordset")
rs_Grades.ActiveConnection = MM_veneermove_STRING
rs_Grades.Source = "SELECT grade FROM dbo.tbl_grades"
rs_Grades.CursorType = 0
rs_Grades.CursorLocation = 2
rs_Grades.LockType = 1
rs_Grades.Open()
 
rs_Grades_numRows = 0
%>
<%
Dim rs_Quantity
Dim rs_Quantity_cmd
Dim rs_Quantity_numRows
 
Set rs_Quantity_cmd = Server.CreateObject ("ADODB.Command")
rs_Quantity_cmd.ActiveConnection = MM_veneermove_STRING
rs_Quantity_cmd.CommandText = "SELECT quantity_count FROM dbo.tbl_scarf_count ORDER BY quantity_count DESC" 
rs_Quantity_cmd.Prepared = true
 
Set rs_Quantity = rs_Quantity_cmd.Execute
rs_Quantity_numRows = 0
%>
<%
Dim rs_Status
Dim rs_Status_cmd
Dim rs_Status_numRows
 
Set rs_Status_cmd = Server.CreateObject ("ADODB.Command")
rs_Status_cmd.ActiveConnection = MM_veneermove_STRING
rs_Status_cmd.CommandText = "SELECT status FROM dbo.tbl_status ORDER BY status DESC" 
rs_Status_cmd.Prepared = true
 
Set rs_Status = rs_Status_cmd.Execute
rs_Status_numRows = 0
%>
<%
if (cStr(cStr(Request.Form("RM_Grade"))) <> "")  then
  Session("GradeDropDownList") = "" & cStr(cStr(Request.Form("RM_Grade"))) & ""
end if%>
<%
if (cStr(cStr(Request.Form("RM_Supplier"))) <> "")  then
  Session("SupplierDropDownList") = "" & cStr(cStr(Request.Form("RM_Supplier"))) & ""
end if%>
<%
if (cStr(cStr(Request.Form("RM_Location"))) <> "")  then
  Session("LocationDropDownList") = "" & cStr(cStr(Request.Form("RM_Location"))) & ""
end if%>
<%
if (cStr(cStr(Request.Form("RM_Thickness"))) <> "")  then
  Session("ThicknessDropdownList") = "" & cStr(cStr(Request.Form("RM_Thickness"))) & ""
end if%>
<%
if (cStr(cStr(Request.Form("RM_Quantity"))) <> "")  then
  Session("QuantityDropdownList") = "" & cStr(cStr(Request.Form("RM_Quantity"))) & ""
end if%>
<%
if (cStr(cStr(Request.Form("RM_Status"))) <> "")  then
  Session("StatusDropdownList") = "" & cStr( Session("StatusDropdownList") ) & ""
end if
%>
<%
 
' Declare variables:
Dim WADAInsertForm
Dim strRM_Thickness
 
 
' Read in the data entered into the form:
strRM_Thickness  = Request.Form("RM_Thickness")
 
' Do data validation:
WADAInsertForm = True
If strRM_Thickness = ""  Then WADAInsertForm = False
 
' Since I'm illustrating how to maintain the form's data,
' I'll force the form to fail validation so that the page
' will always display the form no matter what values are
' entered.  In order to actually use a form of this type
' you should remove or comment out the following line:
WADAInsertForm = False
 
' Read in the data entered into the form:
strRM_Thickness  = Request.Form("RM_Thickness")
 
' WA Application Builder Insert
if (cStr(Request.Form("Insert.x")) <> "")  then
 
	Session("RM_BCODE") = Request.Form("RM_BCODE")
	Session("RM_Location") = Request.Form("RM_Location")
	Session("RM_Supplier") = Request.Form("RM_Supplier")
	Session("RM_Grade") = Request.Form("RM_Grade")
	Session("RM_Thickness") = Request.Form("RM_Thickness")
	Session("RM_Quantity") = Request.Form("RM_Quantity")
	Session("RM_Status") = Request.Form("RM_Status")
	
  WA_connection = MM_veneermove_STRING
  WA_table = "dbo.tbl_RM_Materials"
  WA_sessionName = "WADA_Insert_dbotbl_RM_Materials"
  WA_redirectURL = "tbl_RM_Materials_Insert_Scarf.asp"
  WA_keepQueryString = false
  WA_indexField = "RM_ID"
  WA_fieldNamesStr = "RM_BCODE|RM_DateTime|RM_PurchOrd|RM_Location|RM_Supplier|RM_Grade|RM_Thickness|RM_Quantity|RM_Status|RM_Product"
  WA_fieldValuesStr = "" & cStr(cStr(Request.Form("RM_BCODE"))) & "" & "|" & "" & cStr(cStr(Request.Form("RM_DateTime"))) & "" & "|" & "" & cStr(cStr(Request.Form("RM_PurchOrd"))) & "" & "|" & "" & cStr(cStr(Request.Form("RM_Location"))) & "" & "|" & "" & cStr(cStr(Request.Form("RM_Supplier"))) & "" & "|" & "" & cStr(cStr(Request.Form("RM_Grade"))) & "" & "|" & "" & cStr(cStr(Request.Form("RM_Thickness"))) & "" & "|" & "" & cStr(cStr(Request.Form("RM_Quantity"))) & "" & "|" & "" & cStr(cStr(Request.Form("RM_Status"))) & "" & "|" & "" & cStr(cStr(Request.Form("RM_Product"))) & ""
  WA_columnTypesStr = "',none,''|',none,NULL|',none,''|',none,''|',none,''|',none,''|',none,''|',none,''|',none,''|',none,''"
  WA_comparisonStr = " LIKE | = | LIKE | LIKE | LIKE | LIKE | LIKE | LIKE | LIKE | LIKE "
  WA_fieldNames = Split(WA_fieldNamesStr,"|")
  WA_fieldValues = Split(WA_fieldValuesStr,"|")
  WA_columns = Split(WA_columnTypesStr,"|")
  WA_comparisions = Split(WA_comparisonStr, "|")
 
  insertParamsObj = WA_AB_generateInsertParams(WA_fieldNames, WA_columns, WA_fieldValues, -1)
  set MM_editCmd = Server.CreateObject("ADODB.Command")
  MM_editCmd.ActiveConnection = WA_connection
  MM_editCmd.CommandText = "INSERT INTO " & WA_table & " (" & insertParamsObj(1) & ") VALUES (" & insertParamsObj(2) & ")"
  MM_editCmd.Execute()
  MM_editCmd.ActiveConnection.Close()
  obj = WA_AB_generateWhereClause(WA_fieldNames, WA_columns, WA_fieldValues, WA_comparisions)
  sqlstr = "SELECT " & WA_indexField & " FROM " & WA_table & " WHERE " &  obj & " ORDER BY " & WA_indexField & " DESC"
  set WA_AppBuilderRecordset = Server.CreateObject("ADODB.Recordset")
  WA_AppBuilderRecordset.ActiveConnection = WA_connection
  WA_AppBuilderRecordset.Source = sqlstr
  WA_AppBuilderRecordset.CursorType = 0
  WA_AppBuilderRecordset.CursorLocation = 2
  WA_AppBuilderRecordset.LockType = 1
  WA_AppBuilderRecordset.Open()
  if (NOT WA_AppBuilderRecordset.EOF)  then  Session(WA_sessionName) = WA_AppBuilderRecordset.Fields.Item(WA_indexField).Value
  WA_AppBuilderRecordset.Close()
  if (WA_redirectURL <> "")  then
    if (WA_keepQueryString AND Request.QueryString <> "" AND Request.QueryString.Count > 0) then
      if (inStr(WA_redirectURL,"?") > 0)  then
        WA_redirectURL = WA_redirectURL & "&"
      else
        WA_redirectURL = WA_redirectURL & "?"
      end if
      WA_redirectURL = WA_redirectURL & Request.QueryString
    end if
    Response.Redirect(WA_redirectURL)
  end if
end if
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title>tbl_RM_Materials_Insert_Scarf</title>
<link href="file:///C|/Inetpub/wwwroot/PACINET/Veneermove/WA_DataAssist/styles/Modular_Pacifica.css" rel="stylesheet" type="text/css" />
<link href="file:///C|/Inetpub/wwwroot/PACINET/Veneermove/WA_DataAssist/styles/Arial.css" rel="stylesheet" type="text/css" />
<style type="text/css">
<!--
body {
	background-color: #EBD7FF;
}
.style2 {font-size: 16px}
.style3 {
	color: #FF0000;
	font-style: italic;
}
a:link {
	color: #1E23F9;
}
a:hover {
	color: #000000;
}
a:active {
	color: #FF0000;
}
body,td,th {
	font-family: Verdana, Arial, Helvetica, sans-serif;
}
-->
</style>
<script language="JavaScript" type="text/JavaScript">
<!--
 
function MM_reloadPage(init) {  //reloads the window if Nav4 resized
  if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) {
    document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }}
  else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload();
}
MM_reloadPage(true);
//-->
</script>
 
 
 
</head>
 
<body onload="document.forms['WADAInsertForm'].RM_BCODE.focus();">
 
<div id="Layer1" style="position:absolute; left:350px; top:145px; width:222px; height:21px; z-index:1"><strong><span class="style2">SCARF SAW INSERTION PAGE </span></strong></div>
<div class="WADAInsertContainer">
   <form action="tbl_RM_Materials_Insert_Scarf.asp" method="post" name="WADAInsertForm" id="WADAInsertForm">
    <div class="WADAHeaderText">Make selections first, then scan barcode to submit</div>
    <table class="WADADataTable" cellpadding="0" cellspacing="0" border="0">
      <tr>
        <th class="WADADataTableHeader"><div align="left">BCODE:</div></th>
        <td class="WADADataTableCell"><input name="RM_BCODE" type="text" id="RM_BCODE" value="" size="20" /></td>
      </tr>
      <tr>
        <th class="WADADataTableHeader"><div align="left">Date Time:</div></th>
        <td class="WADADataTableCell"><input type="text" readonly name="RM_DateTime" id="RM_DateTime" value="<%response.write( now())%>" size="20" /></td>
      </tr>
      <tr>
        <th class="WADADataTableHeader"></th>
        <td class="WADADataTableCell"><input type="hidden" readonly name="RM_PurchOrd" id="RM_PurchOrd" size="20" /></td>
      </tr>
      <tr>
        <th class="WADADataTableHeader"><div align="left">Location:</div></th>
        <td class="WADADataTableCell">
          <select name="RM_Location">
            <%
While (NOT rs_Location.EOF)
%>
            <option value="<%=(rs_Location.Fields.Item("LocationNum").Value)%>" <%If (Not isNull(Session("LocationDropDownList"))) Then If (CStr(rs_Location.Fields.Item("LocationNum").Value) = CStr(Session("LocationDropDownList"))) Then Response.Write("SELECTED") : Response.Write("")%> ><%=(rs_Location.Fields.Item("LocationNum").Value)%></option>
            <%
  rs_Location.MoveNext()
Wend
If (rs_Location.CursorType > 0) Then
  rs_Location.MoveFirst
Else
  rs_Location.Requery
End If
%>
        </select></td>
      </tr>
      <tr>
        <th class="WADADataTableHeader"><div align="left">Supplier:</div></th>
        <td class="WADADataTableCell">
          <select name="RM_Supplier">
            <%
While (NOT rs_Supplier.EOF)
%>
            <option value="<%=(rs_Supplier.Fields.Item("supplier_name").Value)%>" <%If (Not isNull(Session("SupplierDropDownList"))) Then If (CStr(rs_Supplier.Fields.Item("supplier_name").Value) = CStr(Session("SupplierDropDownList"))) Then Response.Write("SELECTED") : Response.Write("")%> ><%=(rs_Supplier.Fields.Item("supplier_name").Value)%></option>
            <%
  rs_Supplier.MoveNext()
Wend
If (rs_Supplier.CursorType > 0) Then
  rs_Supplier.MoveFirst
Else
  rs_Supplier.Requery
End If
%>
        </select></td>
	  </tr>      
      <tr>
        <th class="WADADataTableHeader"><div align="left">Grade:</div></th>
        <td class="WADADataTableCell">
          <select name="RM_Grade">
            <%
While (NOT rs_Grades.EOF)
%>
            <option value="<%=(rs_Grades.Fields.Item("grade").Value)%>" <%If (Not isNull(Session("GradeDropDownList"))) Then If (CStr(rs_Grades.Fields.Item("grade").Value) = CStr(Session("GradeDropDownList"))) Then Response.Write("SELECTED") : Response.Write("")%> ><%=(rs_Grades.Fields.Item("grade").Value)%></option>
            <%
  rs_Grades.MoveNext()
Wend
If (rs_Grades.CursorType > 0) Then
  rs_Grades.MoveFirst
Else
  rs_Grades.Requery
End If
%>
          </select></td>
      </tr>
      <tr>
        <th class="WADADataTableHeader"><div align="left">Thickness:</div></th>
        <td class="WADADataTableCell">
          <select name="RM_Thickness">
            <%
While (NOT rs_Thickness.EOF)
%>
            <option value="<%=(rs_Thickness.Fields.Item("thickness").Value)%>" <%If (Not isNull(Session("ThicknessDropdownList"))) Then If (CStr(rs_Thickness.Fields.Item("thickness").Value) = CStr(Session("ThicknessDropdownList"))) Then Response.Write("SELECTED") : Response.Write("")%> ><%=(rs_Thickness.Fields.Item("thickness").Value)%></option>
            <%
  rs_Thickness.MoveNext()
Wend
If (rs_Thickness.CursorType > 0) Then
  rs_Thickness.MoveFirst
Else
  rs_Thickness.Requery
End If
%>
        </select></td>
      </tr>
      <tr>
        <th class="WADADataTableHeader"><div align="left">Quantity:</div></th>
        <td class="WADADataTableCell">
          <select name="RM_Quantity">
            <%
While (NOT rs_Quantity.EOF)
%>
            <option value="<%=(rs_Quantity.Fields.Item("quantity_count").Value)%>" <%If (Not isNull(Session("QuantityDropdownList"))) Then If (CStr(rs_Quantity.Fields.Item("quantity_count").Value) = CStr(Session("QuantityDropdownList"))) Then Response.Write("SELECTED") : Response.Write("")%> ><%=(rs_Quantity.Fields.Item("quantity_count").Value)%></option>
            <%
  rs_Quantity.MoveNext()
Wend
If (rs_Quantity.CursorType > 0) Then
  rs_Quantity.MoveFirst
Else
  rs_Quantity.Requery
End If
%>
        </select></td>
      </tr>
      <tr>
        <th class="WADADataTableHeader"><div align="left">Status:</div></th>
        <td class="WADADataTableCell">
          <select name="RM_Status">
            <%
While (NOT rs_Status.EOF)
%>
            <option value="<%=(rs_Status.Fields.Item("status").Value)%>" <%If (Not isNull(Session("StatusDropdownList"))) Then If (CStr(rs_Status.Fields.Item("status").Value) = CStr(Session("StatusDropdownList"))) Then Response.Write("SELECTED") : Response.Write("")%> ><%=(rs_Status.Fields.Item("status").Value)%></option>
            <%
  rs_Status.MoveNext()
Wend
If (rs_Status.CursorType > 0) Then
  rs_Status.MoveFirst
Else
  rs_Status.Requery
End If
%>
        </select></td>        
      </tr>
      <tr>
        <th class="WADADataTableHeader"><div align="left"></div></th>
        <td class="WADADataTableCell"><input type="hidden" readonly name="RM_Product" id="RM_Product" size="20" /></td>
      </tr>
    </table>
    <div class="WADAButtonRow">
      <table class="WADADataNavButtons" border="0" cellpadding="0" cellspacing="0">
        <tr>
          <td class="WADADataNavButtonCell" nowrap="nowrap"><input name="Insert" type="image" id="Insert" value="Insert" onClick="return confirm('Are you sure you would like to insert this record?')" src="WA_DataAssist/images/Pacifica/Modular_insert.gif" alt="Insert" width="56" height="17" hspace="0" vspace="0" border="0"  /></td>
          <td class="WADADataNavButtonCell" nowrap="nowrap"><a href="tbl_RM_Materials_Results.asp"><img src="WA_DataAssist/images/Pacifica/Modular_cancel.gif" alt="Cancel" name="Cancel" width="56" height="17" border="0" id="Cancel" /></a></td>
        </tr>
      </table>
      <input name="WADAInsertRecordID" type="hidden" id="WADAInsertRecordID" value=""  >
</div>
  </form>
   <table width="550" border="0">
     <tr>
       <td>  <p><strong><span class="style3">MAKE ALL SELECTIONS AS APPROPRIATE PRIOR TO SCANNING! </span>Once selections have been made place cursor in &quot;BCODE&quot; field. You may now scan barcode to submit unit to floor inventory.</strong></p>
</td>
     </tr>
  </table>
   <table width="175" border="0">
     <tr>
       <td width="175"><div align="center"><a href="Scarf_Instructions.htm" class="WADAHeaderText">Page Instructions</a></div></td>
     </tr>
  </table>
   <table border="0">
    <tr>
      <td> 
	  
	  
	  
      </form>
      <form name="form2" method="post" action="http://localhost/pwc109/tbl_RM_Materials_Results.asp">
      <input type="submit" name="Submit" value="Floor Inventory">
      </form>
      
</td>
    </tr>
  </table></p>
</div>
</body>
</html>
<%
rs_Supplier.Close()
Set rs_Supplier = Nothing
%>
<%
rs_Location.Close()
Set rs_Location = Nothing
%>
<%
rs_Grade.Close()
Set rs_Grade = Nothing
%>
<%
rs_Thickness.Close()
Set rs_Thickness = Nothing
%>
<%
rs_Grades.Close()
Set rs_Grades = Nothing
%>
<%
rs_Quantity.Close()
Set rs_Quantity = Nothing
%>
<%
rs_Status.Close()
Set rs_Status = Nothing
%>
 
-------------------------------------------------------------------------------------------------------------------
 
This is the connection page.
 
-------------------------------------------------------------------------------------------------------------------
 
<%
' FileName="Connection_odbc_conn_dsn.htm"
' Type="ADO" 
' DesigntimeType="ADO"
' HTTP="false"
' Catalog=""
' Schema=""
Dim MM_veneermove_STRING
MM_veneermove_STRING = "Driver={SQL Server};Server=PWCCORE;Database=Veneer;UID=sa;PWD=sharky7676"
 
 
' The line of code above will not connect to the second db while used as the MM_veneermove_STRING.
' The "dsn=PWC109" does work when using the Application tool in Dreamweaver.
 
 
' The line below will connect to the first db when used as the MM_veneermove_STRING
 
' "Driver={SQL Server};Server=PWCCORE;Database=Veneer;UID=sa;PWD=sharky7676"
 
' "Driver={SQL Server};Server=PWC109/VENEER;Database=Veneer;UID=jcoats;PWD=deovin"
 
' Shouldn't this work best when you change the connection file this way you don't have to fix all the pages with the new code.
 
 
' "dsn=PWC109\VENEER;uid=jcoats;pwd=deovin;"
 
%>
 
 
 
I am having a connection issue with my database. One database is on a server which I can connect to and the other is on the IIS of a laptop computer.
 
I can see and open the database on the laptop via Enterprise Manager. I can see the tables as well.
 
I have given the db on the laptop a user name and password which works in Enterprise Manager. I have also just used the SA access which works.
 
The problem is that when I try to connect via my webpage it says that the server does not exist.
 
The following connection works on the server based database:
 
"Driver={SQL Server};Server=PWCCORE;Database=Veneer;UID=sa;PWD=sharky7676"
 
These connections were modeled after the connection above and do not work when tried on the IIS based laptop database. The name of the server on the laptop in Enterprise Manager shows up as "PWC109/VENEER" but I have tried it just as "PWC109" which does not either.
 
1)      "Driver={SQL Server};Server=PWC109;Database=Veneer;UID=jcoats;PWD=deovin"
2)      "Driver={SQL Server};Server=PWC109/VENEER;Database=Veneer;"
3)      "Driver={SQL Server};Server=PWC109/VENEER;Database=Veneer;UID=sa;PWD="
4)      "Driver={SQL Server};Server=PWC109;Database=Veneer;UID=jcoats;PWD=deovin"
5)      "Driver={SQL Server};Server=PWC109;Database=Veneer;UID=sa;PWD="
6)      "Driver={SQL Server};Server=PWC109;Database=Veneer;
 
This is the error that I get for the code above:
 
Technical Information (for support personnel)
"	Error Type:
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][ODBC SQL Server Driver][DBNETLIB]SQL Server does not exist or access denied.
/pwc109/tbl_RM_Materials_Insert_Scarf.asp, line 10 
"	Browser Type:
Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1; .NET CLR 1.0.3705; .NET CLR 1.1.4322; .NET CLR 2.0.50727; .NET CLR 3.0.4506.2152; .NET CLR 3.5.30729) 
"	Page:
GET /pwc109/tbl_RM_Materials_Insert_Scarf.asp

Open in new window

0
Comment
Question by:James Coats
  • 2
2 Comments
 
LVL 4

Expert Comment

by:newbieal
ID: 24199401
Here are some good troubleshooting tips:
http://www.teratrax.com/articles/sql_server_access_denied.html
0
 
LVL 4

Accepted Solution

by:
newbieal earned 1500 total points
ID: 24199412
0

Featured Post

NFR key for Veeam Agent for Linux

Veeam is happy to provide a free NFR license for one year.  It allows for the non‑production use and valid for five workstations and two servers. Veeam Agent for Linux is a simple backup tool for your Linux installations, both on‑premises and in the public cloud.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

This article shows how to get a list of available printers for display in a drop-down list, and then to use the selected printer to print an Access report or a Word document filled with Access data, using different syntax as needed for working with …
In today's business world, data is more important than ever for informing marketing campaigns. Accessing and using data, however, may not come naturally to some creative marketing professionals. Here are four tips for adapting to wield data for insi…
This is a high-level webinar that covers the history of enterprise open source database use. It addresses both the advantages companies see in using open source database technologies, as well as the fears and reservations they might have. In this…
In this video, Percona Solutions Engineer Barrett Chambers discusses some of the basic syntax differences between MySQL and MongoDB. To learn more check out our webinar on MongoDB administration for MySQL DBA: https://www.percona.com/resources/we…
Suggested Courses

829 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question