<%
imei=Request.Form("imei")
model=Request.Form("model")
supplier=Request.Form("supplier")
Set connection = Server.CreateObject("ADODB.Connection")
connection.Open("stock")
'We check that IMEI has not been introduced before
SQL="SELECT * FROM Product WHERE IMEI like '"&imei&"';"
Set list = connection.Execute(SQL)
If NOT list.EOF then
Response.Redirect("../stock/prodexists.asp?imei="&imei)
End If
%>
Cellular Advice NI LTD
