er det muligt at skrive URL result tag i en database?

Hvis mener om man kan hente en internetside og få de metatags, der er på siden ind i en database. Så kan jeg fortælle at det kan du sagtens, hvis du har adgang til et komponent, der kan hente siden. Der findes flere komponenter, som kan det, men jeg kan da nævne komponentet socket.tcp

Hvis det ikke var det du skulle bruge, så tror jeg at du må beskrive lidt nærmere, hvad du er ude efter.

Jeg kan også lige fortælle at socket.tcp evt. kan hentes fra denne adresse:
http://download.dimac.net/sockets/w3sockets.exe

Jeg vil egentligt bare gøre som en søgemaskine der indexere dokumenter. Hente Metatags ind og benytte keywords osv. i en listning!

Kunne godt bruge et script eksempel!

Ok, jeg kan da godt komme med lidt kode, som kan bruges til at hente internetsider. Der findes en del systemer til søgning i databaser, som frit kan downloades på internettet. Ellers har jeg også nogen, som du kan købe og jeg udvikler også gerne hvis du skulle have nogle specielle ønsker.

Her er i hvert fald koden der kan hente internetsider:

response.write GetHttp(\"cht.dk\")

Function GetHttp(strUrl)

  \' Reserve variables
  Dim strHost
 
  \' Start error handling
  On Error Resume Next

  \' Strip off http://
  If LCase(Left(strUrl, 7)) = \"http://\" Then
    strUrl = Right(strUrl, Len(strUrl) - 7)
  End If
 
  \'if InStr(strUrl,\"/\") = 0 then
  \'  strUrl = strUrl & \"/\"
  \'end if

  \' Split server address and filename
  If InStr(strUrl, \"/\") > 0 Then
    strHost = Left(strUrl, InStr(strUrl, \"/\") - 1 )
    strUrl = Right(strUrl, (Len(strUrl) - InStr(strUrl, \"/\")) + 1 )
  else
    strHost = strUrl
    strUrl = \"\"
  End If
 
  \' Add port if not included
  If InStr(strHost, \":\") = 0 Then
    strHost = strHost & \":80\"
  End If

  \'§response.write \"<b>File: </b>\" & strurl & \"<br><b>Host: </b>\" & strhost & \"<br>\"

  \' Create object
  set Socket = server.CreateObject(\"Socket.TCP\")

  \' Set hostadress
  socket.Host = strHost

  \' Set timeout to 5 seconds
  Socket.TimeOut = 8000

  \' Open connection to host
  Socket.Open

  sendline = \"Accept: image/gif,image/x-xbitmap,image/jpeg, image/pjpeg, */*\" & VbCrLf
  sendline = sendline & \"Accept-Language: da\" & VbCrLf
  sendline = sendline & \"User-Agent: Mozilla/4.0 (compatible; CHT.DK; Windows NT)\" & VbCrLf
  sendline = sendline & \"REFERER: http://www.cht.dk/\" & VbCrLf
  sendline = sendline & \"Comment: HTTP://CHT.DK\" & VbCrLf

  strHost = left(strHost,len(strHost)-3)
  strUrl = mid(strUrl,2)

  \' Send getline for content
  Socket.SendLine(\"GET /\" & strUrl & \" HTTP/1.0\" & Chr(13) & Chr(10) & \"Host: \" & strHost & Chr(13) & Chr(10) & sendline)

  \'§response.write \"<pre>GET /\" & strUrl & \" HTTP/1.0\" & Chr(13) & Chr(10) & \"Host: \" & strHost & Chr(13) & Chr(10) & sendline & \"</pre>\"

  \' Wait until content is recieved
  Socket.WaitForDisconnect()

  \' Insert data into function
  GetHttp = Socket.Buffer

  \' Close object
  Socket.Close()

  \' Error
  If Err.Number <> 0 Then
      \'§Response.Write Err & \": \" & Err.Description
      \'§Response.Write \"<br>Host:[\" & strHost & \"]<br>Url:[\" & strUrl & \"]\"
      Exit function
  End If
  On Error Goto 0

End Function

tak