Advanced Search

Return to Snippet

Revision: 33993
at October 15, 2010 20:07 by sikwan
Initial Code 
Function CurrentURLWithParams()

     Dim Temp
     Temp = "http://" & Request.ServerVariables("SERVER_NAME")
     Temp = Temp & Request.ServerVariables("SCRIPT_NAME")

     If Request.ServerVariables("QUERY_STRING") <> "" Then
          Temp = Temp & "?" & Request.ServerVariables("QUERY_STRING")
     End If

     CurrentURLWithParams = Temp

End Function
Initial URL 

                                

                                                            

                                    

                                        

                                        Initial Description
                                        

                                    

                                    
This function return the current Url, including the Get parameters.

                                

                                                            

                                    

                                        

                                        Initial Title
                                        

                                    

                                    
Current Url With Parameters

                                

                                                            

                                    

                                        

                                        Initial Tags
                                        

                                    

                                    
url

                                

                                                            

                                    

                                        

                                        Initial Language
                                        

                                    

                                    
ASP