Hello,

I normally do all of my server side scripting in PHP, but this particular client is on a Windows server, so I'm trying to find out how to make something I would normally do in PHP work using ASP. Can anyone tell me how to do the following in ASP?

<?
if (strstr($_SERVER['HTTP_USER_AGENT'], "Googlebot"))
{
$se_referer = $_SERVER['HTTP_REFERER'];
$se_ip = gethostbyaddr($_SERVER['REMOTE_ADDR']);
$se_visit = date("M d, Y at g:i:s A", time()-3600);
$se_method = $_SERVER['REQUEST_METHOD'];
$se_browser = $_SERVER['HTTP_USER_AGENT'];
$se_entry_page = $_SERVER['REQUEST_URI'];
}
//THEN I JUST HAVE THIS INFORMATION EMAILED TO ME...
//WHICH I KNOW HOW TO CODE
?>

Thanks!

Untested, but should point you in the right direction at least... and there's no GetHostByAddr in ASP so you'll have to write your own or something. If you just want an IP Address, I'm pretty sire the REMOTE_ADDR server variable always returns an IP Address.

<%
If (InStr(Request.ServerVariables("HTTP_USER_AGENT"), "Googlebot", vbTextCompare) > 0) Then
 se_referer = Request.ServerVariables("HTTP_REFERER")
 se_ip = GetHostByAddr(Request.ServerVariables("REMOTE_ADDR"))
 se_visit = FormateDateTime(Now, vbLongDate) & " at " & FormatDateTime(Now, vbLongTime)
 se_method = Request.ServerVariables("REQUEST_METHOS")
 se_Browser = Request.ServerVariables("HTTP_USER_AGENT")
 se_entry_page = Request.ServerVariables("REQUEST_URI")
End If
%>

<%
 
If InStr (Request.ServerVariables ("HTTP_USER_AGENT"), "Googlebot") > 0 then
    SE_REferer = Request.ServerVariables ("HTTP_REFERER")
    SE_IP = Request.ServerVariables ("REMOTE_ADDR")
    SE_Visit = Now() ' I'm not sure how to do that weird PHP date thing.
    SE_Method = Request.ServerVariables ("REQUEST_METHOD")
    SE_Browser = Request.ServerVariables ("HTTP_USER_AGENT")
    SE_Entry_Page = Request.ServerVariables ("REQUEST_URI")    
end if
 
%>

It's basically the same code, except you use Request.ServerVariables instead of $_SERVER .

Hi, Minaki & Adam,

Thank you soooooo much! Between the 2 snippets I was able to get it to do what I needed. I changed Googlebot to Mozilla and it worked, so hopefully, I'll get an email when Google comes crawling!

Thanks again. I appreciate it.

Sherry

Since I search these forums for answers before posting, I figured that I'd post the final code that ended up working so that others can benefit as well.

Thanks again, guys.

<%
If InStr (Request.ServerVariables ("HTTP_USER_AGENT"), "Googlebot") > 0 then
strSe_referer = Request.ServerVariables ("HTTP_REFERER")
strSe_ip = Request.ServerVariables ("REMOTE_ADDR")
strSe_visit = Now()
strSe_method = Request.ServerVariables ("REQUEST_METHOD")
strSe_Browser = Request.ServerVariables ("HTTP_USER_AGENT")
strSe_entry_page = Request.ServerVariables ("REQUEST_URI")
 
End If
%>

You welcome!

i guess u had the code several times, but anyway i'll post it again. Hope it will help u:

<%
If InStr (Request.ServerVariables ("HTTP_USER_AGENT"), "Googlebot") > 0 then
strSe_referer = Request.ServerVariables ("HTTP_REFERER")
strSe_ip = Request.ServerVariables ("REMOTE_ADDR")
strSe_visit = Now()
strSe_method = Request.ServerVariables ("REQUEST_METHOD")
strSe_Browser = Request.ServerVariables ("HTTP_USER_AGENT")
strSe_entry_page = Request.ServerVariables ("REQUEST_URI")

End If
%>

As you can see in my last post, I posted the answer. It's the exact same thing that you copy and pasted into your meaningless post. There are more creative ways to build up your post total.

Hi friend

Try w3schools.com - its a wealth of free knowledge for all