<%
	Set db=Server.CreateObject("ADODB.Connection")

	if Request.ServerVariables("SERVER_NAME")="10.10.10.10" or Request.ServerVariables("SERVER_NAME")="dev.ismartcom.com" or Request.ServerVariables("SERVER_NAME")="dev.vintedge.com" or Request.ServerVariables("SERVER_NAME")="203.116.100.130" then
		db.open("PROVIDER=SQLOLEDB;DATA SOURCE=10.10.10.11;UID=devuser01;PWD=devuser01;DATABASE=sennheiser_ecom")
	else
		db.open("PROVIDER=SQLOLEDB;DATA SOURCE=vtdb01;UID=vtuser01;PWD=vtuser01;DATABASE=sennheiser_ecom")
	end if
	
	Function SafeSQL(paramSQL)
		SafeSQL = Trim(Replace(paramSQL,"'","&#39;"))
	End Function

%>