Formatering og sortering af resultat

ja det kan du sagtens...

du skal "bare" vide hvad her er du skal bruge...:)

Oki, så er det måske at man lige skulle hjælpe mig med det efter som at spørgsmålet er oprettet således at det ikke "kun" er et ja nej spørgsmål.

:) tænkte det nok.....

du har jo "hele" side i variablen: tekst
tekst = trim(tekst)
hvorkommerbq = instr(tekst, "<blockquote>")
' ** tekst fra bq
tekst = Right(tekst, (len(tekst)-hvorkommerbq) )
' ** så skal det sidste </table></body></html> fjernes
tekst = Left(tekst, (len(tekst) - len("</table></body></html>") ) ' ** kunne også bare have talt de sidste :)

?

de har jo (desværre) ikke lukket deres <blockquote> (</blockquote>)

ellers kunne du have søgt efter det ala hvorkommerbq bare med
hvorerdetslut = instrrev(tekst, "</blockquote>")

Ok, hvis du så får hele min kode, kan den så også laves sådan så der bare står XXX.XX domænet er optaget ??

det kan du rimeligt nemt

dk-hostmaster siger (hvis der ikke er noget)
"Søgningen gav ikke noget resultat"

så før det andet jeg skrev

if instr(tekst, "Søgningen gav ikke noget resultat") > 0 Then
response.write "det er ikke optaget"
else
< det jeg skrev før >
end If

:)

< det jeg skrev før >
+
response.write "domænet er optaget"

:)

hvis du vil vise resultatet skal du jo også skrive
response.write tekst ' hvor det der ikke skal være der er "pillet" fra...:)

oki det virker ikke helt, men nu paster jeg resten af mine forspørgsler ind .. således du kan se hvad jeg mener

<% 'domaincheck.asp
Dim strDomainName, objSocket
Sub Whois(strDomain, strServer)
  Response.Write("<a href=""http://www." & strDomain & """>" & strDomain & "</a>")
  objSocket.Host = strServer & ":43"
  objSocket.Open()
  objSocket.SendLine(strDomain)
  objSocket.WaitForDisconnect()
  Response.Write("<pre>" & objSocket.Buffer & "</pre>")
  objSocket.Close()
End Sub
strDomainName = Request.QueryString("Domain").item
session("dom") = strDomainName
Response.Write "<html><body>"
Set objSocket = Server.CreateObject("Socket.TCP")
Call whois(strDomainName & ".com", "rs.internic.net")
Call whois(strDomainName & ".net", "rs.internic.net")
Call whois(strDomainName & ".org", "rs.internic.net")
Set objSocket = Nothing%>
<!-- #include file="domcheck.asp"-->
<%Response.Write "</body></html>"
%>

<----- domcheck.asp -------->
domain = sessioN("dom")
  Dim objXMLHTTP, objXml
Set objXml = Server.CreateObject("Microsoft.XMLHTTP")
  objXml.Open "GET", "http://www.dk-hostmaster.dk/script/whois.php?query="&domain&".dk&lang=da", False
  objXml.Send
  tekst = objXml.ResponseText
tekst = trim(tekst)
if instr(tekst, "Søgningen gav ikke noget resultat") > 0 Then
response.write "det er ikke optaget"
else
hvorkommerbq = instr(tekst, "<blockquote>")
tekst = Right(tekst, (len(tekst)-hvorkommerbq))
tekst = Left(tekst, (len(tekst) - len("</table></body></html>")))
response.write tekst
end if
Set objXml = Nothing

det var fordi at den to det sidst af <blockquote> med .....
dette dur (du skal lige skifte domænet :) )

<%
Dim dom
dom = "eksperten.dk"
Dim objXMLHTTP, objXml
Set objXml = Server.CreateObject("Microsoft.XMLHTTP")
objXml.Open "GET", "http://www.dk-hostmaster.dk/script/whois.php?query=" & dom & "&lang=da", False
objXml.Send
tekst = objXml.ResponseText
tekst = trim(tekst)
Set objXml = Nothing

If instr(tekst, "Søgningen gav ikke noget resultat") > 0 Then
response.write "Domænet er IKKE optaget"
Else
hvorkommerbq = instr(tekst, "<blockquote>")
' ** tekst fra bq
tekst = Right(tekst, (len(tekst)-hvorkommerbq)-11 )
' ** så skal det sidste </table></body></html> fjernes
tekst = Left(tekst, (len(tekst) - len("</table></body></html>") ) )
'response.write tekst
response.write "Domænet er optaget"
End If
%>

:) håber at du kan bruge det :)

Else
hvorkommerbq = instr(tekst, "<blockquote>")
' ** tekst fra bq
tekst = Right(tekst, (len(tekst)-hvorkommerbq)-11 )
' ** så skal det sidste </table></body></html> fjernes
tekst = Left(tekst, (len(tekst) - len("</table></body></html>") ) )
'response.write tekst
response.write "Domænet er optaget"
End If

kan jo egentlig cuttes ned til
Else
response.write "Domænet er optaget"
End If

hvis du ikke vil / skal vise hvem det til hører :)

Ja ok, men hvis du så ser på den anden fil, som jeg også har pasted ind, så kan du jo se at jeg også vil havde dem til at skrive domainet er optaget.

Bare kald mig langsom det er ok

du mener altså for de andre tld's ?

Den nye kode siger domainet er optaget selvom det ikke er det.

Ja for de andre TLDs

If cdbl( instr(tekst, "Søgningen gav ikke noget resultat")) > 0 Then

så virker det :)

hmm nogle gange..:)

S&oslash;gningen gav ikke noget resultat

skriver host master jo (med &oslash;) så det er jo det der skal søges efter...

her er min kode der dur....
<%
    Dim objXMLHTTP, objXml
    Set objXml = Server.CreateObject("Microsoft.XMLHTTP")
    objXml.Open "GET", "http://www.dk-hostmaster.dk/script/whois.php?query=" & dom & "&lang=da", False
    objXml.Send
    tekst = objXml.ResponseText
    tekst = trim(tekst)
    Set objXml = Nothing
   
    If cdbl( instr(1, tekst, "S&oslash;gningen gav ikke noget resultat",1) ) > 0 Then
    response.write "Domænet er IKKE optaget"
    Else
    hvorkommerbq = instr(tekst, "<blockquote>")
    ' ** tekst fra bq
    tekst = Right(tekst, (len(tekst)-hvorkommerbq)-11 )
    ' ** så skal det sidste </table></body></html> fjernes
    tekst = Left(tekst, (len(tekst) - len("</table></body></html>") ) )
    response.write tekst
    response.write "Domænet er optaget"
    End If
%>

det du skal gøre for de andre tld's er jo i princippet det samme.
(du skal bare finde ud af "forskellene" på når der er noget eller ej (hostmaster.dk siger jo "S&oslash;gningen gav ikke noget resultat", de andre nok det samme (bare på engelsk...) ))

min variabel:
dom  (med dk)

OKi jeg takker ..

sæl tak :)