Dosya adını değiştirme

'******************************************************************
'fm_QNStr() v1.1 by Ferruh Mavituna
'******************************************************************
'//NFO//
'    Get Querystring Get it As a numeric value, If it's Not numeric it Return 0
'//ARGUMENTS//
'    Qstring = Querystring Name
'//Return//
'    Numeric value from Querystring
'//SAMPLES//
'    QueryId = fm_QNStr("id")
Function fm_QNStr(ByVal Qstring)
    Qstring= Trim(Request.Querystring(Qstring))
    If Not IsNumeric(Qstring) Then fm_QNStr = 0 Else fm_QNStr = Qstring
End Function