Solved: help converting asp with vbscript to perlscript

I need to get some help changing an asp page with vbscript code to perlscript instead.
I tried to do it but there are parts I don't understand. Any help or guidance is very much appreciated.
the page is very basic but I lack the knowledge to do it on my own.

Thank you.

asp page:

<%@ Language=VBScript %>
<%
Option Explicit
Response.Buffer = true
Response.charset="utf-8"
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
 <head>
 <meta http-equiv="Content-Type" content="text/html; charset=utf-8"/>
 <title>URL Id By Host</title>
 <link rel=stylesheet type="text/css" href="report.css" TITLE="wow" />
 </head>
<body>
<%
dim myParameterString, myQueryString, myhost

If Request.QueryString("host") <> "" Then
myhost = Request.Querystring("host")
End If
%>
<form name="frmOne" id="frmOne" action="TMC_report.asp?host=<%=request.form("host")%>" method="get">
Host:
<input type="text" name="host" />
<input type="submit" value="Submit" name="btn_submit" />

</form>
 
<%
dim cn, rs, sql, host, i, strOrderBy, tmpOrderBy, zip

host = request.querystring("host")

strOrderBy = Request.QueryString("sortby")

Select Case strOrderBy
Case "pv_a"
tmpOrderBy = " ORDER BY sumaccess ASC"
Case "pv_d"
tmpOrderBy = " ORDER BY sumaccess DESC"
Case "gi_a"
tmpOrderBy = "ORDER BY groupId ASC"
Case "gi_d"
tmpOrderBy = "ORDER BY groupId DESC"
End Select

cn= "Driver={SQL Server};Server=xxx.xxx.x.xx;Database=databasename;Uid=sa;Pwd=password;"

Set rs = Server.CreateObject("ADODB.Recordset")

sql = "SELECT * FROM urlid_report_by_host where host like '" & myhost & "'" & tmpOrderBy

rs.Open sql, cn, 3,3

Dim colorset, c, numcolors, rlabel

colorset = split("#E6E8FA,#EEE0E5",",")
numcolors = ubound(colorset)+1

%>
<table border="0" cellspacing="1" cellpadding="2" width="100%">
<tr>
<td class="head" valign="top">Host</td>
<td class="head" valign="top">URL Id</td>
<td class="head" valign="top">Group Id <a href="TMC_report.asp?host=<%=host%>&sortby=gi_a&btn_submit=Submit">ASC</a>|<a href="TMC_report.asp?sortby=gi_d&host=<%=host%>&btn_submit=Submit">DESC</a></td>
<td class="head" valign="top">Label</td>
<td class="head" valign="top">Access Views <a href="TMC_report.asp?host=<%=host%>&sortby=pv_a&btn_submit=Submit">ASC</a>|<a href="TMC_report.asp?sortby=pv_d&host=<%=host%>&btn_submit=Submit">DESC</a></td>
<td class="head" valign="top">Latitude</td>
<td class="head" valign="top">Longitude</td>
<td class="head" valign="top">Zip Code</td>
</tr>
<%
if not rs.eof and request("btn_submit") = "Submit" then
while not rs.eof
response.write " <tr style=""background:" & colorset(c mod numcolors) & ";"">"
%>
<td class="body" align="center"><%=Ucase(rs("Host"))%></td>
<td class="body" align="center" width="244"><a href="http://xxx.xxxxxx.xxx/xx/xxxx.asp?id=<%=trim(rs("url_id"))%>" target="_blank">http://xxx.xxxxxx.xxx/xx/xxxx.asp?id=<%=trim(rs("URL_Id"))%></a></td>
<td class="body" width="75" align="center"><%=trim(rs("groupId"))%></td>
<%
 rlabel = rs("label")
rlabel = replace(rlabel,"&","&")
%>
<td class="body"><%=rlabel%></td>
<td class="body" width="75" align="center"><%=trim(rs("sumaccess"))%></td>
<td class="body" width="75" align="center"><%=trim(rs("latitude"))%></td>
<td class="body" width="75" align="center"><%=trim(rs("longitude"))%></td>
<%
if rs("Zip") <= "" OR ISNULL(rs("Zip")) then

zip = " <td class='nozip'>Not used</td>"
else
zip = " <td class='body' align='center'>" & rs("Zip") &"</td>"

end if
%>
<%=zip%>
</tr>
<%

c = c + 1
rs.MoveNext

wend
response.write " <tr>" & vbcrlf & " <td colspan='8' class='total'>Total number of records: " & rs.RecordCount & "</td>" & vbcrlf & " </tr>"
elseif host <> "" then
%>
<tr>
<td class="message" colspan=7>There are no records for host <%=Ucase(host)%>. Please try again.</td>
</tr>
<%
end if
response.write vbcrlf & "</table>"
%>
</body>
</html>
<%
rs.close
set rs=nothing
%>

ASKER CERTIFIED SOLUTION

clockwatcherProgrammer

Become an EE member today7-DAY FREE TRIAL

Members can start a 7-Day Free trial then enjoy unlimited access to the platform for $9.99/mo

View membership options

Unlock 3 Answers and 24 Comments.

Learn why we charge membership fees

We get it - no one likes a content blocker. Take one extra minute and find out why we block content.

See how we're fighting big data