Propellihatuille VBScript-pähkinä (domainin tarkistus)

Tää pirulainen jumittaa mun servon...
bongaakos joku tuolta ilmiselvää bugia?
entä saiskos joku sen jopa toimimaan?

Eli subia kutsutaan sitten kun on tutkittu että onko domain vapaa, ja nyt sitten tarkistetaan että sopiiko se meille, eli vastaako niitä TLD -tyyppejä jotka me hyväksymme. oma TLD -listamme on erillisessä txt-filessä ylläpidon helpotukseksi (ja koodaajan kauhuksi). :D

Sub ValidateDomain
‘alustan muuttujat ja teen tuosta yhestä jo valmiiksi arrayn
Dim vStrDomain,vStrDomReverse,vDomCount,SerCreObjFSO,DomPicker,vDomainCheck,x
Dim aPosDomain
aPosDomain = Array()
‘tarkistettava domain tulee querystringillä
vStrDomain = Request.QueryString("domain")
‘käännän sen ympäri vertailun helpottamiseksi
vStrDomReverse = strReverse(vStrDomain)
vDomCount = CInt(0)
‘ lasken kuinka monta riviä on domainlistfilessä, johon on listatu kaikki sallitut domainit omille riveilleen
Set SerCreObjFSO = Server.CreateObject("Scripting.FileSystemObject")
Set DomPicker = SerCreObjFSO.OpenTextFile(Server.MapPath("domainlist.txt"),1)
Do While DomPicker.AtEndOfStream = False
vDomCount = vDomCount 1
Loop
Set DomPicker = Nothing
Set SerCreObjFSO = Nothing
‘teen arrayn jossa on yhtä monta alkiota kuin filessä rivejä
vDomCount = vDomCount - 1
ReDim aPosDomain(vDomCount)
vDomCount = CInt(0)
‘lätkin datan filestä juuri tehtyyn taulukkomuuttujaan…
Set SerCreObjFSO = Server.CreateObject("Scripting.FileSystemObject")
Set DomPicker = SerCreObjFSO.OpenTextFile(Server.MapPath("domainlist.txt"),1)
Do While DomPicker.AtEndOfStream = False
aPosDomain(vDomCount) = DomPicker.ReadLine
vDomCount = vDomCount 1
Loop
Set DomPicker = Nothing
Set SerCreObjFSO = Nothing
vDomCount = vDomCount - 1
DomainCheck = False
Sitten vaan vertaan ne perkeleet keskenään peräpäästä alkaen…
For x = 0 To vDomCount
vLenDom = Len(strReverse(aPosDomain(x)))
If Mid(vStrDomReverse,1,vLenDom) = strReverse(aPosDomain(x)) Then
vDomainCheck = True
End If
Next
If vDomainCheck = False Then
Response.Write "Invalid Domain"
End If
End Sub


vaikka uskonkin että aika hiljasta on, niin piti silti kuitenkin kysyä... kthxbye 8)