ASP
<SCRIPT language=vbscript runat=server>
Sub ShowTable(rst)
If Not rst.EOF Then rst.MoveFirst
Response.Write ("<table border=1 width=100% cellspacing=0 cellpadding=3>"+vbCrLf)
Response.Write ("<thead>"+vbCrLf)
For i = 0 To rst.Fields.Count - 1
Response.Write ("<td align=center><a href=""phones.asp?sort="&rst.Fields(i).Name&"""><font face=""Tahoma"" size=2>"&rst.Fields(i).Name&"</font></a></td>")
Next
Response.Write ("</thead>"+vbCrLf)
Do Until rst.EOF
Response.Write ("<tr>"+vbCrLf)
For i = 0 To rst.Fields.Count - 1
if (VarType(rst.Fields(i).Value) = vbnull) Then
valStr = "Null"
ElseIf (VarType(rst.Fields(i).Value) = 8209) Then
valStr = "-"
Else
valStr = CStr(rst.Fields(i).Value)
End If
If Trim(valStr) = "" then valStr = " "
Response.Write ("<td><font face=""Tahoma"" size=2>"&valStr&"</font></td>")
Next
Response.Write ("</tr>"+vbCrLf)
rst.MoveNext
Loop
Response.Write ("</table>"+vbCrLf)
End Sub
Sub ShowHeader
Response.Write ("<html>"+vbCrLf)
Response.Write ("<head>"+vbCrLf)
Response.Write ("<meta http-equiv=""Content-Language"" content=""ru"">"+vbCrLf)
Response.Write ("<meta http-equiv=""Content-Type"" content=""text/html; charset=windows-1251"">"+vbCrLf)
Response.Write ("<title>ABBYY mobile phones</title>"+vbCrLf)
Response.Write ("</head>"+vbCrLf)
Response.Write ("<body>"+vbCrLf)
Response.Write ("<h1 align=center><font face=""Tahoma"" size=4>ABBYY mobile phones</h1>"+vbCrLf)
End Sub
Sub ShowFooter
Response.Write ("</body>"+vbCrLf)
Response.Write ("</html>"+vbCrLf)
End Sub
Dim rst
Set rst = CreateObject("ADODB.Recordset")
cnnStr = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=BaseName;Data Source=ServerName"
cmdStr = "SELECT * FROM vwMobilePhones"
rst.Open cmdStr, cnnStr
If Not rst.EOF Then
rst.MoveFirst
Response.Write ("<p align=right><font face=""Tahoma"" size=1>"+rst.Fields(0).Value+"<br>"+vbCrLf)
End If
rst.Close
tmpStr = ""&Date&" "&Time
Response.Write ("<font face=""Tahoma"">"+tmpStr+"</p>"+vbCrLf)
cmdStr = "SELECT * FROM MobilePhonesEmployers"
SortStr = Request.QueryString("Sort")
If SortStr <> "" Then
cmdStr = cmdStr & " ORDER BY " & SortStr
End If
rst.Open cmdStr, cnnStr
ShowHeader
ShowTable(rst)
ShowFooter
rst.Close
rst = Null
</SCRIPT>