With Response
    If gwPag = "0" Or gwPag = "1" Or gwPag = "5" Or gwPag = "6" Then
        .Write "var f = new Array();" & vbCrLf
        .Write "function selcountry() {" & vbCrLf
        .Write "    i = document.frm_racc.racc_country.selectedIndex;" & vbCrLf
        .Write "    document.images['flag'].src = 'iface/flags/' + i + '.gif';" & vbCrLf
        .Write "    loadstates(i);" & vbCrLf
        .Write "}" & vbCrLf
        .Write "var p = new Array();" & vbCrLf
        .Write "p[0] = '<-- No states/provinces available -->';" & vbCrLf
        Set gwRS = Server.CreateObject("ADODB.Recordset")
        Set gwRS1 = Server.CreateObject("ADODB.Recordset")
        SQLStr = "SELECT * FROM countries ORDER BY str_name ASC"
        gwRS.Open SQLStr, gwConn, adOpenDynamic, adLockOptimistic, adCmdText
        i = 1
        Do While Not gwRS.EOF
            .Write "p[" & i & "] = '"
            cid = gwRS("lng_id")
            SQLStr = "SELECT str_name FROM states WHERE lng_countryid = " & cid & " ORDER BY str_name ASC"
            gwRS1.Open SQLStr, gwConn, adOpenDynamic, adLockOptimistic, adCmdText ' line 63
            Do While Not gwRS1.EOF
                .Write Replace(gwRS1("str_name"),"'","\'") & ", "
                gwRS1.MoveNext
            Loop
            .Write "';" & vbCrLf
            gwRS1.Close
            i = i + 1
            gwRS.MoveNext
        Loop
        gwRS.Close
    ' more If statements for the other cases of gwpag
    End If
End With