Customer Service

If you need assistance of any sort please feel free to e-mail us @

[email protected] or click here.

You can also leave a comment in the comment box provided

<% 'no security checking %> <% Response.expires = 0 Response.expiresabsolute = Now() - 1 Response.addHeader "pragma", "no-cache" Response.addHeader "cache-control", "private" Response.CacheControl = "no-cache" %> <% response.buffer = true 'get action a=request.form("a") 'get fields from form x_id = Request.Form("x_id") x_firstname = Request.Form("x_firstname") x_lastname = Request.Form("x_lastname") x_email = Request.Form("x_email") x_type = Request.Form("x_type") x_content = Request.Form("x_content") ' Open Connection to the database set conn = Server.CreateObject("ADODB.Connection") conn.Open xDb_Conn_Str Select Case a Case "A": ' Add ' Open record strsql = "SELECT * FROM [Comments] WHERE 0 = 1" set rs = Server.CreateObject("ADODB.Recordset") rs.Open strsql, conn, 1, 2 rs.AddNew tmpFld = Trim(x_firstname) If trim(tmpFld) & "x" = "x" Then tmpFld = Null rs("firstname") = tmpFld tmpFld = Trim(x_lastname) If trim(tmpFld) & "x" = "x" Then tmpFld = Null rs("lastname") = tmpFld tmpFld = Trim(x_email) If trim(tmpFld) & "x" = "x" Then tmpFld = Null rs("email") = tmpFld tmpFld = Trim(x_type) If trim(tmpFld) & "x" = "x" Then tmpFld = Null rs("type") = tmpFld tmpFld = Trim(x_content) If trim(tmpFld) & "x" = "x" Then tmpFld = Null rs("content") = tmpFld rs.Update rs.Close Set rs = Nothing conn.Close Set conn = Nothing Response.Clear Response.Redirect "Commentslist.asp" End Select %>

Firstname
Lastname
Email
Type
Comment

We are committed to extraordinary customer service and will respond to your claims as quickly and promptly as possible. Thank you for visiting us and considering or doing business with us.