imam jedan mali problem, trebalo bi mi prijevod sa ASP na PHP. Ne znam raditi u php a gazda hoće to u php...
'*********************************************************************************************
'// CARNet :: http://www.dns.hr/pretrazivanje.html
'*********************************************************************************************
Function getCARNetStatus(strDN, strTLD)
Dim htmlDocument
Dim strUrl, strRegStatus
getCARNetStatus = False '## Domain is maybe free
Select Case strTLD
Case "hr"
strUrl = "http://www.dns.hr/asp/trazidomenu.asp"
strDN = "Upit=" & strDN
strRegStatus = "nijeregistrirana" '## !!!
Case "com.hr"
strUrl = "http://hr-t.dns.hr/php/search.php"
strDN = "domena=" & strDN
strRegStatus = "jeslobodna" '## !!!
End Select
'## Getting Response Text
htmlDocument = getHtml(strUrl, strDN)
'## Fixing HTML Document
htmlDocument = Replace(htmlDocument, CHR(10), "")
htmlDocument = Replace(htmlDocument, CHR(13), "")
htmlDocument = Replace(htmlDocument, " ", "")
'## Finding Registration Status inside HTML Document
strRegStatus = InStr(htmlDocument, strRegStatus)
'## Domain is registred and not available
If strRegStatus = 0 Then
getCARNetStatus = True
End If
hvala unaprijed