帮忙改下这段asp代码

<%

Function glhtml(title)
title=replace(title,"","")
title=replace(title,"","")
title=replace(title,"","")
set reg=new regexp
reg.IgnoreCase=true
reg.Global=true
reg.Pattern=""
glhtml=reg.Replace(title,"")
set reg=nothing
End Function

id=trim(request("id"))
nr=trim(request("nr"))
font=trim(request("font"))
nr=trim(request("nr"))
nrtop=trim(request("nrtop"))
nrcolor=trim(request("nrcolor"))

if nrcolor="" then nrcolor=""
if nr="" then nr=0
if nrtop="" then nrtop=150
nrtop=int(nrtop)
if font="" then font=9
path="/news/"
Set rs = Server.CreateObject("ADODB.RecordSet")
rs.Open "select * from [config]",conn,1,1