<%@ Language=VBScript%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN"
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<%
mes=""
IsSuccess = false
sServer = Trim(Request.Form("txtServer"))
sUser = Trim(Request.Form("txtUser"))
sPassword = Trim(Request.Form("txtPassword"))
if Request("__action")="TestDB" then
TestDB()
end if
Sub TestDB()
Err.Clear()
on error resume next
Set objConn = Server.CreateObject("ADODB.Connection")
if len(Err.Description)<>0 then
mes = " " & Err.Description & " MSSQL connection can't be established!"
else
objConn.ConnectionString = _
"DRIVER={SQL Server}" & _
";Server=" & sServer & _
";UID=" & sUser & _
";PWD=" & sPassword
objConn.Open
if len(Err.Description)<>0 then
mes = " " & Err.Description & " MSSQL connection can't be established!"
else
mes = " MSSQL connection succesfull established!"
IsSuccess = true
end if
end if
Set objConn = Nothing
End sub
Sub Alert(html)
if IsSuccess then
Response.Write "<div class='testRelults' id='testSuccessful'><span class='testResult'>Success:</span>" & html & "</div>"
else
Response.Write "<div class='testRelults' id='testFailed'><span class='testResult'>Fail:</span>" & html & "</div>"
end if
End Sub
%>
<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en">
<head>
<title>ASP test page.</title>
<meta name=vs_targetSchema content="http://schemas.microsoft.com/intellisense/ie5">
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<meta http-equiv="Cache-Control" content="no-cache" />
<link rel="shortcut icon" href="favicon.ico" type="image/x-icon" />
<link rel="icon" href="favicon.ico" type="image/x-icon" />
<link rel="stylesheet" type="text/css" href="../../css/style.css" />
<link rel="stylesheet" type="text/css" href="../../css/tabs.css" />
<!--[if lte IE 7]><style type="text/css">#tabs li, #tabs a { display: inline; zoom: 1; } #tabs li { margin: 0; }</style><![endif]-->
<script type="text/javascript" src="../../header.js"></script>
<script type="text/javascript">writeCopyFlag();</script>
</head>
<body>
<div class="page">
<form id="form1" action="test_mssql.asp?__action=TestDB&tp=<%= rnd(1)*100*timer %>" method="POST" >
<input id="__action" type="hidden" value="" />
<div class="header clear">
<script type="text/javascript">
//<![CDATA[
if (window.product_copyrights) { writeHeader(); }
//]]>
</script>
</div>
<div class="wrapper test">
<div class="pathbar"><a href="../../index.html">Site Home Page</a> ></div>
<h2>ASP possibilities test page</h2>
<div id="tabs">
<ul>
<li class="first"><a href="test_mysql.asp"><span>MySQL</span></a></li>
<li id="current"><a href="test_mssql.asp"><span>MSSQL</span></a></li>
<li><a href="test_msaccess.asp"><span>MS Access</span></a></li>
<li class="last"><a href="test_mail.asp"><span>E-Mail</span></a></li>
</ul>
</div>
<!-- MySQL server -->
<div class="tab-content clear">
<p>Here you can test the connection possibility with the Microsoft SQL server.</p>
<% if len(mes) > 0 then Alert(mes) end if %>
<fieldset>
<legend id="LegendName">Test MSSQL Connection</legend>
<table class="formFields" cellspacing="0" width="100%">
<tr>
<td class="name"><label id="lblSource" for="txtServer">Server</label></td>
<td><input type = text name="txtServer" size = "25" value = "<% Response.Write(sServer) %>"></td>
</tr>
<tr>
<td class="name"><label for="txtUser">User name</label></td>
<td><input type = text name="txtUser" size="25" value = "<% Response.Write(sUser) %>"></td>
</tr>
<tr>
<td class="name"><label for="txtPassword">Password</label></td>
<td><input type = password name="txtPassword" size="25"></td>
</tr>
</table>
</fieldset>
<div class="buttonsContainer">
<div class="commonButton" id="DBTestButton" title="Test"><button type="submit" name="bname_ok">Test</button><span>Test</span></div>
</div>
</div>
</div>
</form>
<div class="footer">
<div class="footer-area">
<script type="text/javascript">
//<![CDATA[
if (window.product_copyrights) { writeFooter(); }
//]]>
</script>
</div>
</div>
</div>
</body>
</html>
|