Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations Chriss Miller on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
Reverse ip lookup
- Thread starter andyUK
- Start date
- Thread starter
- #3
You need to use a component for that that will do the lookup.. try aspdns from here:
rgrds
Silvers5 aka El-pirate
As seen on
rgrds
Silvers5 aka El-pirate
As seen on
- Thread starter
- #5
<!--Cut & paste code After database is in place. To test you will need to make sure that they referenced the page from a link. If they type in your URL then the content only will be displayed. It will take a bit more coding if you want to exclude referrers from your own site.-->
<!-- #include file = "adovbs.inc" -->
<html>
<head><title></title>
<!--Check if they are coming from another page. If so send them to the same page and include the url with a . at the end-->
<script>
function redirectPage() {
if (document.referrer) {
var test = document.referrer
var go= location+"?from="+"\""+test+"."+"\""
window.location.href= go;
}
}
</script>
<body onload=redirectPage()>
<!--If there is a . at the end of the url then right it to the database else do nothing-->
<%
Dim check
check = Right(Request("from"
,1)
If checkIll = "." then
Dim from
from = TRIM( Request( "from" ) )
DIM Con
Set Con = Server.CreateObject("ADODB.Connection"
Con.provider="microsoft.jet.oledb.4.0"
Con.open=server.mappath("\"&"db.mdb"
Set RS = Server.CreateObject( "ADODB.Recordset" )
RS.ActiveConnection = Con
RS.CursorType = adOpenStatic
RS.LockType = adLockOptimistic
RS.Open "SELECT * FROM table WHERE 1<>1", Con
RS.AddNew
RS( "tablefield" ) = from
RS.Close
Con.close
End If
%>
content here
</body>
</html>
<!-- #include file = "adovbs.inc" -->
<html>
<head><title></title>
<!--Check if they are coming from another page. If so send them to the same page and include the url with a . at the end-->
<script>
function redirectPage() {
if (document.referrer) {
var test = document.referrer
var go= location+"?from="+"\""+test+"."+"\""
window.location.href= go;
}
}
</script>
<body onload=redirectPage()>
<!--If there is a . at the end of the url then right it to the database else do nothing-->
<%
Dim check
check = Right(Request("from"
,1)If checkIll = "." then
Dim from
from = TRIM( Request( "from" ) )
DIM Con
Set Con = Server.CreateObject("ADODB.Connection"
Con.provider="microsoft.jet.oledb.4.0"
Con.open=server.mappath("\"
&"db.mdb" Set RS = Server.CreateObject( "ADODB.Recordset" )
RS.ActiveConnection = Con
RS.CursorType = adOpenStatic
RS.LockType = adLockOptimistic
RS.Open "SELECT * FROM table WHERE 1<>1", Con
RS.AddNew
RS( "tablefield" ) = from
RS.Close
Con.close
End If
%>
content here
</body>
</html>
- Status
Similar threads
- Locked
- Question
- Locked
- Question
- Locked
- Question